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FOREWORD 


Here it 1s at last. Because your response to our First Book Of 
Wizzard Proyrams waS so overwhelming we have produced a second 
book of fantastic programs to run on your Wizzard Computer. 


. 


You will find that using these programs will be an education in 
itself even if you are a programmer of long standing 
experience. They contain information and techniques which if 
understocd are guaranteed to increase your programming skills. 
In this book we hope you will find the programs both 
entertaining and useful but more especially fun. 


Of course it 18 up to you whether you use these programs as 
they stand or whether you create your own imaginative 
innovations, We suggest the latter rather than the former as we 
believe that this 1s the best way to grow and expand your 
knowledge of programming. 
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WIZZARD WAR 


Here is a very simole but enjoyable game! It is a variation on 
the popular 'old' space invaders theme. However you must be 


accurate! The more shots that you fire the faster the invaders 
appear! 


1 GOTO808G 

2 REM*PLOT FACES* 

3 S=S-5 

4 R=9+0+0+@0 

5 R=RND (31) 

6 IFA(R) =LTHENRETURN 
7 A(R)=L1 

8 PLOTR,9,104 

9 D=D+l1 

10 RETURN 

50 FOR B=160 TO 199 
55 IFRND (18) =STHENGOSUB2 
60 IFJOY (3) >OTHEN30@ 
65 POKE218,B 

70 PRINTAS 

80 NEXTB 

85 POKE2 18,191 

90 PRINT" " 

110 IFT<1THEN7@4@ 

120 T=T-l 


13@ COLORT+18,1,1 
148 GOSUB20@ 

158 GOTO5@ 

200 POKE218,223 

205 PRINT" SCORE";S 
258 RETURN 

300 C=B-159 

301 POKE4898,208 

382 POKE4698,@0 

303 POKE4898,207 

318 FOR I=18 TO 9 STEP 
320 PLOTC,1+3,32 

330 PLOTC,I1,96 

340 POKE4098,I1 

368 NEXT I 

38@ IFA(C) =8@THEN45@ 
398 POKE49098,2490 

480 PLOTC,9,12@ 

4109 A(C)=0 

420 S=S+250 

425 PLOTC,9,121 

430 D=D-1 

435 PLOTC,9,122 

440 IFD<1THENS=S¢+( (T+1) **2)* 40 
45@ PLOTC,9 ,32 

4686 SOUND1;9@ 





S=S-100 

GOSUB260 

IFRND (6) =4THENGOSUB2 
GOTO65 
IFS<=UTHEN/509@ 

CLS 


PRINT" CONGRATULATIONS" 


SOUND26; 3 
SOUND21;2 
SOUND21;1 
SOUND2 3; 3 
SOUND21; 3 

SOUND1;3 
SOUND9;3,19;3,25; 3 
SOUND2;3,18;3,26; 3 
CLS 


PRINT"PLEASE PRINT YOUR NAME" 


PRINT 

PRINT"RECORD HOLDER" 
PRINT 

INPUT NS 

PRINT 

PRINT 

CLS 

PRINT" OLD RECORD WAS ";U 
PRINT 

PRINT 

T=T+1 

U=S 

B=E+l] 

F(E) =S 

PRINT"NEW ">; 

GOTO765@ 

CLS 

PRINT 

PRINT 

PRINT"RECORD BY "+NS+" IS" 
PRINT 

PRINT" "2U 
PRINT 

PRINT 

PRINT" YOUR SCORE WAS " 
PRINT 

PRINT" "eS 
PRINT 

PRINT 

PRINT"ALL RECORDS ARE:" 
PRINT 

FORI=LTOE 

PRINTF(I);" "; 

NEXTI 

PRINT 

PRINT 


PRINT"TO CONTINUE PRESS <!>" 
PRINT 

PRINT"TO STOP PRESS <->" 
GOTOJOY (4) +7840 

GOT0995@ 

GOTOIBGD 

GOTO784@ 

CLS 

DIM F(32) 

DIM A(32) 
CHAR96,10101901010190190 
CHAR1@4,183C7E3C42818181 
CHAR112,001818BDFF99BDBD 
CHAR120 ,9110183FFD180889 
CHAR33 ,O@80COEFFFFGEGCG8 
CHAR121,814224F0@F244281 
CHAR128 ,O@O0OGG0000000033F 
CHAR136 ,OO0O0OO0O0O0QGG17FF7F 
CHAR144,000000077FFFFF7F 
CHAR152 ,@OG01FFFFFFFFF7F 
CHAR1L6@ ,@77FFFFFFFFFFF7E 
CHAR1L68,FFFFFFEFFFFFFF7F 
CHAR122,1024814824011842 
COLOR13,16,1 
COLOR14,11,1 

COLORILS,7,1 

COLOR 7,14,1 

COLOR 8,14,1 

COLOR16,7,1 

COLOR6,14,1 

FORI=17T022 

COLORI,14,1 

NEXTI 

BS=" " 
AS=" "+CHRS (112) 4" i] 
NS="FIRST GAME" 

GOTO860G 

IFJOY(4) =LTHEN857@ 
IFJOY (4) =2THENIOGG 
GOTO8528 

POKE218,2 

FORI=1TO7 

PRINTBS 

NEXTI 

POKE218,2 

RETURN 

POKE4698 , 239 

SOUNDI1;1 

PRINT" Kkekek kK Ke KKK Ea 
PRINT" * x" 


PRINT" * WIZZARD WAR *" 
PRINT" * it 
PRINT" kKaeKRKKRKKKK KKK EEN 


PRINT 

PRINT 

PRINT 

PRINT" TO START GAME PRESS !" 
PRINT 

PRINT" FOR CONTINUING INSTRUCTIONS" 
PRINT 

PRINT" PRESS -" 

PRINT 

GOSUB8575 

PRINT"THE OBJECT IS TO SHOOT" 
PRINT 


PRINT" ALL THE ALIENS "+":s"4+CHRS (104) +" 


PRINT 


PRINT" "+CHRS$ (104) +" "+"APPEAR AT RANDOM TIMES" 


PRINT 

PRINT” BUT MORE DURING FIRING" 
GOSUB8529 

PRINT"THE DEFENDING ROCKET" 
PRINT | 
PRINT" TRAVELS ACROSS THE SCREEN" 
PRINT 

PRINT" 5 TIMES. AS IDICATED BY" 
FORI=128TOL68STEP8 

PLOT(I/8-12) ,23,1 

NEXTI 

POKE2 18,202 

PRINT".TO FIRE PRESS SHIFT" 


GOSUB852¢ 

PRINT"SCORING:" 

PRINT 

PRINT" A HIT = + 1598" 

PRINT" A MISS= - 166" 

PRINT" A "“+CHRS(104)+" = - 5" 


PRINT" A SCREEN CLEAR OF"+CHRS (104) +" 
PRINT" BONUS =((FUEL) **2) *49." 
GOSUB852¢ 

PRINT" TO START GAME PRESS !" 
IFJOY (4) =2THENIDGO 

GOTO08979 

CLS 

FORI=1T0O32 

A(I) =@8 

NEXT I 

T=5 


D 
Cc 
B 


low il 
Q Qn 


S=2009 

POKE2 18,241 
PRINTNS;" ";U 
GOSUB2 89 . 
FORI=128TO1L68STEP8 


GIVES" 


"+CHRS (104) 


9310 
9320 
9350 
9800 
9819 
99 8@ 
9950 
9969 
9970 
9996 


PLOT (I/8-4) ,24,I 
COLORI/8+1,14,1 

NEXT I 

GOSUB2 

GOSUB2 

GOTOS@ 

CLS 

REM*BY J.TUCKER* 

REM* GRAPHICS BY EDWIN 
END 


TUCKER* 
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BLACKJACK 


Would you like to try your luck at the Wizzard casino? This 
orogranm allows two nlayers to challenge the Wizzard at once. 
Can you beat the computer dealer? 


INSTRUCTIONS 


Tne game commences with the statement 'Shuffling Deck!' on the 
screen. Each player is then asked, in turn to make their 
opening bid. This can be any amount From $1 to your remaining 


bank. 


The board will be volotted at this point showing each players 
Starting bank and current bet. The deal will commence. Each 
Dlayer, in turn will be asked if they wish to Hit (buy another 
card) or Stand (stay with current cards). 


To Hit, ousn SHIFT key or left fire button on left hand 


controller. 
To Stand, push CTRL Key or right fire button on left hand 


controller. 


If your cards are stil under 21 the dealer will keen asking you 
to Hit or Stand. Once both players nave stood or busted (scored 
over 21 points) the dealer will play. The dealer will stand on 
anything over 17. 


7 PRINTTAB(1@) ; "BLACKJACK" 
8 PRINTTAB(10) ;"#####HHHH" 
9 FORY=1T0O5 


10 PRINT 

ll NEXT 

12. PRINT"WRITTEN BY J.A.STEVENS" 
25 CLS 


26 GOSUBIGGG 

38 DATA86,76,46,32,72,73,84,83,84,65,78,68, 32 
31 DATA87,73,78,78,69,82 

32 GOSUB3009 

35 CLS 

4 DIMS (3,2) ,P(3),L(6) ,G(6) 

44 DIMQ(3,3),2(3),D(52) 

45 DIMA (3,6) ,B(3,3) ,C(3,6) 

46 GOSUBI9GG 


47 0=0+1 
48 CLS 
49 S=@ 


5@ GOSUB288@ 

65 IFS>34THENGOSUB995@ 
706 FORY=1T03 

88 FORX=1T06 

96 GOSUB29@@ 

116 NEXTX 
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126 NEXTY 

125 GOSUB79800 

13@ CLS 

135 F=@ 

136 S$(1,1)=@ 

137 S(1,2)=@0 

148 FORY=2TO3 

141 PRINT"HAND ";0 

142 PRINT 

145 B(Y,2)=0 

146 S(Y,1)=@ 

147 S(Y,2)=0 

148 Z(Y) =@ 

158 IFY=2THENPRINTAS; 

151 IFY=3THENPRINTBS; 

152 PRINT" WITH S";B(Y,1) 
153 PRINT 

154 PRINT"BID HOW MUCH PER CARD?" 
155 PRINT 

160 PRINT"'!'''> S$"; 

165 INPUTB(Y,3) 

166 IFB(Y,3)<1LTHEN182 

167 IFB(Y,3)>B(Y,1) THEN182 
178 PRINT 

175 PRINT" etrrervveesne e eee 0 00 
180 NEXTY 

181 GOTO199 

182 PRINT 

183 PRINT"MINIMUM $1,MAXIMUM S$";B(Y,1) 
184 GOTO1L55 

198 CLS 

200 B(2,2)=B(2,3) 

205 B(3,2)=B(3,3) 

2106 GOSUB690G 

215 FORP=1T03. 

220 FORG=1TO2 

230 GOSUB8000 

240 NEXTG 

245 NEXTP 

258 REM*CONTINUE HAND 

255 FORP=2T03 

268 G=2 . 

265 G=Gtl 

266 IFS (P,2) >OTHEN420 

267 IFS (P,1) =21THEN420 
268 IFG>6THEN420 

270 FORK=3T05 


275 READH . 
280 PLOTK,20,H 
285 NEXTK 


286 PLOT6,20,P+47 
2980 FORK=8TO18 
295 IFK=12THEN3190 
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300 
305 
310 
315 
320 
325 
327 
339 
331 
335 
337 
348 
350 
360 
365 
370 
375 
380 
385 
399 
392 
395 
A9G 
ALG 
420 
439 
435 
449 
445 
459 
455 
456 
46G 
465 
465 
476 
475 
480 
482 
485 
499 
495 
496 
497 
498 
503 
595 
51@ 
515 
517 
520 
525 
6808 


READH 
PLOTK,29,H 
NEXTK 
RESTORE 
IFJOY(3) =LTHEN332 
IFJOY (3) =2THEN34@ 
GOTO0320 
PLOT8 ,20,37 
IFB(P,2)+B(P,3) =>B(P,1)THEN3599 
B(P,2)=B(P,2)+B(P, 3) 
GOTO360 
PLOT18 ,290,37 
GOTO0429 
G(6) =B(P,2) 
I=5 
IFP=2THENJ= 23 
IFP=3 THENJ=24 
GOSUB6 800 
FORXK=25T0O29 
PLOTX,J,G(1I) +48 
I=I-l 
NEXTX 
GOSUB8090 
GOTO265 
NEXTP 
FORX =LT932 
PLOTX,20,32 
NEXTX 
IFS (2,2) =2ANDS (3,2) =2THEN4839 
REM*NDEALER HAND 
P=1 
F=1 
G=l 
G=G+l 
“G>6THEN489 
GOSUB880G 
IFS(P,1)<1L7THEN465 
FORP=2T03 
IFS(P,2) =lLANDS(1,2)< 
IFS(P, oe LTHENZ(P) =2 
IFS 2) =2THENZ(P)=l1 


(P 
IFZ(P ) > ATHENSIG 
IfS(P,1)>S(1,1)THENZ(P) =2 
IFS(1,1)>21LTHENZ(P) =2 
If€S(P,1)>21THENZ(P) =1 
IFZ(P)>1THENB(P, TheBte 1) +B(P,2) 
IF Z(P) <2THENB(P,1)=B(P,1)-8(?P,2) 


NEXTP 

IFZ(2) <2ANDZ (3) < 2THEN699 
IFZ(2) =2ANDZ (3) =2THEN699 
IF Z(2) =2THEN65d 

IFZ(3) =2THEN670 

P=] 
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>LTHENB(P,1)=B 


(P,1L)+B 


(P,2) 


605 


tno u 


ro) 

co) 

Q 
TE Oe Uae Te * 
wanwarnes 

~ 

Q 

Q 


! 
> 
+ 
~_— 


Oo 
© 
~ 
Q 
Q 


701 IFA=3THEN80@ 

765 GOSUB9GG 

716 GOTO1609 

808 IFS(2,1)>21ANDS (3,1) >21THEN600 
885 FORP=2T03 

818 GOSUBIBG 

820 NEXTP 

830 GOTO188G 

9890 FORK=1T013 


9805 READH 

910 NEXTK 

915 FORX=26T031 
920 READH 

930 PLOTX,P(P)-2,H 
946 NEXTX 


958 RESTORE 

960 RETURN 

1000 IFB(2,1)=<@THEN1O1@ 
1001 IFB(3,1)=<@THEN1@1@ 
18982 GOSUBI60G 

1003 IFO<TTHEN47 

1018 GOSUB9I608 

1815 CLS 

1820 PRINTAS;" HAS $"3;B(2,1) 
1030 PRINT 

1048 PRINTBS;" HAS $"3:B(3,1) 
1058 B(1,1)=(10000-B(2,1))+(10000-B(3,1)) 
1060 PRINT 

1078 PRINT"DEALER HAS $";B(1,1) 
1080 PRINT 

1999 END 

2800 FORY=1T052 

2810 IFD(Y) =@THENS=S+tl 

2820 NEXTY 

2830 RETURN 

2980 A=RND(52) 

2910 IFD(A) =@THEN294@ 

2928 C(Y,X)=D(A) 

2925 D(A) =0 

29308 RETURN 

2948 A=A+l 

2945 IFA>52THENA=1 

2958 GOTO29190 


14 


3000 
3818 
3611 
3012 
3813 
3014 
3815 
3016 
3026 
3021 
3930 
3040 
3045 
3656 
3060 
3676 
3072 
3875 
3886 
3685 
3090 
3691 
3692 
3893 
3094 
3095 
3180 
3110 
3115 
3120 
3130 
3135 
3146 
3145 
3588 
3510 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
6000 
6616 
6815 
6020 
6021 
6625 
6030 
6035 
6040 
6045 


CLS 
PRINTTAB(1@) ; "BLACKJACK" 
PRINTTAB(10);"'''*rrrers 
PRINT 

PRINT" ENTER AMOUNT OF HANDS TO BE " 
PRINT"PLAYED, OR @ FOR A GAME OF " 
PRINT"BETWEEN 1 AND 10 HANDS " 
PRINT"SELECTED RANDOMLY "; 
INPUTT 
IFT=@THENT=RND (10) 

CLS 

FORY=1T02 

PRINT 

PRINT"PLAYER ";Y;" WISH TO IDDISPLAY 
PRINT"YOUR NAME"; 
INPUTZS 

PRINT 

IF ZS="N"THEN 3110 

PRINT" ENTER NAME"; 
IFY=1LTHENINPUTAS 
IFY=2THENINPUTBS 
IFY=1THENZS=AS$ 
IFY=2THENZS=BS 

L=LEN (ZS) 

IFL>9THEN 3130 

NEXTY 

RETURN 
IFY=1LTHENAS="PLAYER 1" 
IFY=2THENBS="PLAYER 2" 
GOTO 3095 

PRINT 

PRINT"TOO LONG" 

PRINT 

GOTO 3080 

B(P,2)=B(P,1) 

GOTO 36@ 

PLOT26,P(P)-2,33 
PLOT27,P(P)-2,85 
PLOT28,P(P)-2,78 
PLOT29,P(P)-2,68 
PLOT3@,P(P)-2,69 
PLOT31,P(P)-2,82 
GOTO8860 

REM*PLOT BOARD 

FORY=1T0O3 
IFY=1THENZS="DEALER" 
IFY=2THENZS=AS 
IFY=3THENZS=BS$ 

L=LEN (ZS) 

FORX=LTOL 
Q=ASC(MIDS$(ZS,X,1)) 
PLOTX+2,P(Y)-2,Q 

NEXTX 


6050 
6855 
6060 
6065 
6870 
6075 
6080 
6085 
6896 
6100 
6165 
6116 
6115 
6120 
6125 
61390 
6131 
6135 
6140 
6145 
6150 
6155 
616¢ 
6165 
6170 
6175 
6180 
6185 
6190 
6195 
6200 
6205 
6218 
6215 
6220 
6800 
6805 
6810 
6815 
6826 
6825 
6830 
6835 
6840 
6845 
7008 
7610 
7626 
7630 
7640 
7650 
7660 
7106 


PLOT12,P(Y)-1,39 
PLOT13,P(Y)-1,39 
IFY<2THEN6200 
PLOT15,P(Y)-2,66 
PLOT16,P(Y)-2,65 
PLOT17,P(¥)-2,78 
PLOT18,P(Y)-2,75 
PLOT19,P(Y)-2,36 
G(6)=B(Y,1) 
GOSUB6860 

I=5 

FORX=20T024 
PLOTX,P(Y)-2,G(1) +48 
I=I-1l 

NEXTX 

LIF Y=2THENJ=23 
IFY=3THENJ=24 
G(6)=B(Y,2) 
GOSUB680@ 
PLOT18,J,66 
PLOT19,J,69 
PLOT26,J,84 
PLOT21,J3,45 
PLOT22,J3,Y+47 
PLOT24,J,36 

I=5 

FORX=25T029 
PLOTX,J,G(1I) +48 
I=I-l 


NEXTX 

NEXTY 

FORX=1T032 
PLOTX,19,39 

NEXTX 

RETURN 

G(5)=INT (G(6)/19000) 
G(6)=G(6)-(G(5) *18000) 
G(4) =INT(G(6)/1008) 
G(6)=G(6)-(G(4) *1000) 
G(3)=INT (G(6)/108) 
G(6)=G(6)-(G(3) *1089) 
G(2)=INT(G(6)/1@) 

G (6) =G(6)- (G(2) *1@) 
G(1)=INT(G(6)) 

RETURN 

REM* SORT CARD VALUES 
FORY=1T03 

FORX=1T06 

Z=39 

IFC (Y,X) <46THENZ=26 
IFC (Y,X) <27THENZ=13 
IFC (Y,X) <14THENZ=0 
A(Y,X) =C(Y,X) -Z 
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7580 
7516 
7520 
8000 
8061 
8862 
8083 
8004 
8605 
8006 
8807 
8888 
8815 
8826 
8100 
8105 
81190 
8115 
8126 
8506 
85190 
8556 
8566 
8660 
86190 
8650 
8666 
8676 
8675 
8680 
8685 
8690 
8692 
8695 
8698 
8766 
8761 
8710 
8726 
8800 
8805 
8810 
8815 
8820 
8836 
8835 
8840 
8850 
8855 
8857 
8858 
8860 
8865 


NEXTX 

NEXTY 

RETURN 

FORX=1T0O3 

FORY=1T0O3 

Q(X,Y)=127 

IF P=LANDG=2ANDF=@0THENQ (X,Y) =1 
NEXTY 

NEXTX 

IF P=lLANDG=2ANDF=@9THEN855G 
Z=113 

IFC (P,G) <46THENZ=112 

IFC (P,G) <27THENZ=105 

IFC (P,G) <14THENZ=104 
FORX=l1TO3STEP2 
FORY=l1LTO3STEP2 

Q(X,Y)=Z 

NEXTY 

NEXTX 

V=A(P,G) +113 

Q(2,2)=V 

M=L(G)-1l 

N=P(P)-1l 

FORX=1T03 

FORY=1T03 
PLOTM+X,Nt+Y,Q(X,Y) 

NEXTY 

NEXTX 
IFG=2ANDP=l1ANDF=@THEN899G 
IFA(P,G) >1L@OTHENA (P,G) =19 
S(P,1)=S(P,1)+A(P,G) 
IFG<>2THEN8700 

IFA (P,G) =1@ANDS (P,1)=l11THENS (P,1)=21 
IFA (P,G)=lLANDS (P,1)=lL1LTHENS (P,1)=21 
IFS (P,1) =21THENS (P,2) =1l 
IFS (P,1) >21THENS (P, 2) =2 
IFA(P,G) =lLANDS (P,1)=11THENS (P,1)=21 
IFS (P,2) >OTHEN8800 
GOTO8848 

IFS (P,2) =2THEN8820 
G(2)=18 

G(1) =26 

GOTO8855 

G(2) =48 

G(1) =48 

GOTO8855 

G(6)=S (P,1) 

GOSUB68 3@ 

I=2 

IFG=5ANDS (P,1)<21THENS (P,2)=1 
IFG=5ANDS (P,1) <21THEN4989@ 
FORX=12T0O13 
PLOTX,P(P)-2,G(1I) +48 


I=I-1 

NEXTX 

RETURN 
CHAR1@4,183C7EFFFF7E3C18 
CHAR1@5, ,66FFFFFFFF7E3C18 
CHAR112,183C5SAFFFF5A183C 
CHAR113,00183C7EFFFF993C 
CHAR115, 7EFFC3037E8@0FFFF 
CHAR116,7EFFC31LElLEC3FF7E 
CHAR117,@0E1LE3666FFFFQ@606 
CHAR118,FFFFCOFFO3C3FF7E 
CHAR119, 7/EFECOFEFFC3FF7E 
CHAR120, 7E7E060C18303030 
CHAR121, 7EFFC37E7EC3FF7E 
CHAR122, 7EFFC3FF7FQ37F7E 
CHAR123,CEDFDBDBDBDFCE 
CHAR114,183C66C3C3FFC3C3 
CHAR124,FFFF@COCG@CCCEC78 
CHAR125, 7CFEC6C6C6C6bFF7D 
CHAR39 ,G@O@GOOFFFF 
CHAR126,C6CCD8F@D8CCCE6C3 
CHAR1,AASSAA5S5AA55AA55 
CHAR33,8007E687C@02802623C 
CHAR37,3C7EFFFFFFFE7E3C 
COLOR®G,8 

COLOR1,3,16 

COLORS5,7,1 

FORY=6TO12 

COLORY,2,1 

NEXT 

COLOR14,7,16 
COLOR15,2,16 
COLOR16,2,16 

RETURN 

FORY=1TO1@G@ 

NEXTY 

RETURN 

REM* POSITIONING PLOTTERS 
G=3 

FORY=1TO6 

L(Y) =G 

G=G+4 

NEXTY 

G=3 

FORY=1T0O3 

P(Y)=G 

G=G+t+6 

NEXTY 

B(2,1)=10000 
B(3,1)=10080 

CLS 

PRINT"SHUFFLING NEW DECK" 
FORY=1T0O52 


9960 D(Y)=Y 
9978 NEXTY 
9999 RETURN 


SPACE DUEL 


Here iS a two player game that will allow you to fight it out 
in the cold dark reaches of outer space. Use hyperspace to 
dodge your oponents shots, manoeuver your ship then fire your 
blaster to destroy the enemy! 


_ IFA=3THENB=B+1 


C=10 

R=12 

I=22 

B=1 

J=12 

D=15 

CLS 

COLORG,2 

FORT=1T012 

COLORT,16,1 

NEXT 
CHAR1L,900739C2C239070@ 
CHAR2 ,C@B04C 4323241818 
CHAR3,1818242424425A66 
CHAR4 ,930D32C2C4 341818 
CHARS ,@GEG9C43439CEGODB 
CHAR6,181824C4C2320D03 
CHAR7 ,665A422424241818 
CHAR8,18182423434CBO0CO 
CHAR11,00006F92926F 
CHAR12,60980907C12130C04 
CHAR13,1824241824243C24 
CHAR14 ,9609093E48C8 3020 
CHAR15,0G000F64949F6 
CHAR16,2030C8483E090906 
CHAR17,243C242418242418 
CHAR18 ,8490C13127C989069 
CHAR19,4004208280082812 
CHAR2@ ,00200424402A14 
CHAR21,0002183804 
CHAR24,0000001818 
GOTO9BBD — 
p=1l a 
IFC=IANDR=JTHEN4200 
A=JOY (1) 









IFA=7THENB=B-1 
IFA=5THEN19@O@ 
IF JOY (3) =2THEN1O99 
IFJOY (3) =1THEN2200 
IFB>8THENB=1 
IFB<1THENB=8 
PLOTC,R,B 
GOTO 2000 
SOUND28;1 
V=C 

W=R 
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K=D 
IFB=4THEN140@ 
IFB=5THEN150@0 


TEB=9THENTSBS 


IFB=8THEN180@ 
IFB=1THEN1111 
LIFB=2THEN1200 
IFB=3THEN1300 
X=v-1 

Y=W 

IFX <1 THENX=32 
FORZ=1T0O19 
PLOTX,Y,32 
X=X-1 
IFX<1THENX=32 
PLOTX,Y,24 OS 
IFX=IANDY=JTHEN4000-7/' ya’ 
IFX=CANDY=RTHEN4000 i=.’ 
NEXT Cp. 
PLOTX,Y,32 Lair ; 
GOTO2008 We KF 
X=V-1 > in (ree (oak Oe A 
Y=w-1 nee Ata get Se BEL 
IFX <1 THENX=32 

LFY<1THENY=24 

FORZ=1T010 

PLOTX,Y,32 

X=X-1 

Y=Y-1 

IFX <1 THENX=32 

IFY<1THENY=24 

PLOTX,Y,24 

LIFX=IANDY=JTHEN4000 

IFX =CANDY =RTHEN 4000 

NEXT 

PLOTX,Y,32 

GOTO2000 

X=V 

Y=w-1 

IFY<1LTHENY=24 

FORZ=1T010 

PLOTX,Y,32 

Y=Y-1 

IFY<1THENY=24 

PLOTX,Y,24 

IFX=IANDY=JTHEN 4000 

IFX =CANDY=RTHEN400@ 

NEXT 

PLOTX,Y,32 

GOT02000 

X=Vtl 

Y=w-1 
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1411 
1412 
1426 
1421 
1422 
1423 
1424 
1425 
1430 
1440 
1450 
1485 
1487 
1490 
1506 
1519 
1511 
1520 
1521 
1522 
1524 
1536 
1546 
1550 
1585 
1587 
159@ 
1666 
1610 
1611 
1612 
1620 
1621 
1622 
1623 
1624 
1625 
1630 
1648 
1656 
1685 
1687 
1698 
1780 
1716 


1711 
172@ 


1721 
1722 
1724 
1730 
1746 
175@ 


IFX>32THENX=1 
IFY<1LTHENY=24 
FORZ=1TO1@ 
PLOTX,Y,32 

X=X+1l 

Y=Y-l 

IFX>32THENX=1 
IFY<1THENY=24 
PLOTX,Y,24 
IFX=IANDY=J THEN 4000 
IFX=CANDY=RTHEN 4606 
NEXT 

PLOTX,Y,32 

GOTO20G0G 

X=Vt+l 

Y=W 

IFX>32THENX=1l1 
FORZ=1T0O1¢0 
PLOTX,Y,32 

X=X+1 

IFX>32THENX=1 
PLOTX,Y,24 
IFX=IANDY=JTHEN400@ 
IFX=CANDY=RTHEN4 000 
NEXT 

PLOTX,Y,32 

GOTO2000 

X=V+l1 

Y=Wtl 

IFX>32THENX=1 
IFY>24THENY=1 
FORZ=1TO1@ 
PLOTX,Y,32 

X=X+1 

Y=Y+] 
IFX>32THENX=1 
IFY>24THENY=1 
PLOTX,Y,24 
IFX=IANDY=JTHEN400@0 
IFX=CANDY=RTHEN 4000 
NEXT 

PLOTX,Y,32 

GOTO206U 

X=V 

Y=W+1 

IFY>24THENY=1 
FORZ=1TO1@O 
PLOTX,Y,32 

Y=Y+1] - 
IFY>24THENY=1 
PLOTX,Y,24 
IFX=IANDY=JTHEN40090 
IF X=CANDY=RTHEN4090Q 
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1785 NEXT 

1786 PLOTX,Y,32 
1798 GOTO2800 

1800 X=vV-1l 

1810 Y=Wtl 

1811 IFX<1THENX532 
1812 IFY>24THENY=1 
1820 FORZ=1TO1@ 
1821 PLOTX,Y,32 
1822 X=X-1l 

1823 Y=Y+l 

1824 IFX<1LTHENX=32 
1825 IFY>24THENY=1 
1830 PLOTX,Y,24 
1840 IFX=IANDY=JTHEN460@ 
185@ IFX=CANDY=RTHEN4000 
1885 NEXT 

1886 PLOTX,Y,32 
1898 GOTO2000 

1990 T=C 

1981 U=R 

1992 K=B 

1983 IFB=4THEN194@ 
19094 IFB=5THEN195@ 
1905 IFB=6THEN196@ 
1966 IFB=7THEN197@ 
1907 IFB=8THEN198@ 
1988 IFB=1THEN1912 
1909 IFB=2THEN192@ 
1910 IFB=3THEN1930 
1912 PLOTC,R,32 
1913 C=C-1 

1914 IFC<1THENC=32 
1915 PLOTC,R,B 
1919 GOTO200G 

1920 PLOTC,R,32 
1921 Cc=Cc-1 

1922 R=R-l 

1923 IFR<1THENR=24 
1924 IFC<1THENC=32 
1925 PLOTC,R,B 
1929 GOTO2000 

1930 PLOTC,R,32 
1931 R=R-1l 

1934 IFR<1THENR=24 
1935 PLOTC,R,B 
1939 GOTO20090 

19486 PLOTC,R,32 
1941 C=C+l 

1942 R=R-1l 

1943 IFC>32THENC=1 
1944 IFR<1THENR=24 
1945 PLOTC,R,B 


1949 GOTO2009 

1958 PLOTC,R,32 
1951 C=C+l 

1954 IFC>32THENC=1 
1955 PLOTC,R,B 

1959 GOTO209@ 

196@ PLOTC,R,32 
1961 C=Ctl 

1962 R=Rtl 

1963 IFC>32THENT=1L 
1964 IFR>24THENR=1 
1965 PLOTC,R,B 

1969 GOTO200@ 

1978 PLOTC,R,32 
1971 R=Rtl1l 

1974 IFR>24THENR=l 
1975 PLOTC,R,B 

1979 GOTO2000 

1980 PLOTC,R,32 
1981 C=c-1l 

1982 R=Rtl 

1983 IFC<1THENC=32 
1984 IFR>24THENR=l 
1985 PLOTC,R,B 

1989 GOTO29009 

2000 P=2 

2001 IFC=IANDR=JTHEN4200 
2005 E=JOY (2) 

2010 IFE=3THEND=D+1 
2020 IFE=7THEND=D-1 
2025 IFE=5THEN39@@ 
2030 IFD>18THEND=11 
2048 IFD<11THEND=18 
2045 IFJOY(4)=2THEN2999 
2058 IFJOY (4) =1THEN2300 
2090 PLOTI,J,D 

2099 GOTO1OGG 

2200 PLOTC,R,19 
2202 PLOTC,R,29 
2203 PLOTC,R,21 
2204 PLOTC,R,32 
2218 C=RND (32) 

2215 R=RND (24) 

2216 PLOTC,R,21 
2217 PLOTC,R,290 
2218 PLOTC,R,19 
2219 PLOTC,R,B 

22280 GOTO2000 

2308 PLOTI,J,19 
2302 PLOTI,J,20 
2303 PLOTI,J,21 
2304 PLOTI,J,32 
23180 I=RND (32) 


2315 
2316 
2317 
2318 
2319 
2326 
2999 
3060 
3861 
3082 
3004 
3016 
3015 
3028 
3825 
3830 
3835 
3848 
3986 
3981 
3982 
3983 
3994 
3985 
3966 
3907 
39088 
3909 
3916 
3912 
3913 
3914 
3915 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3929 
39 30 
3931 
3934 
3935 
3939 
3949 
3941 
3942 
3943 
3944 
3945 
3949 


J=RND (24) 
PLOTI,J,21 
PLOTI,J,20 
PLOTI,J,19 
PLOTI,J,D 
GOTO1GOG 
SOUND27;1 

V=I 

W=J 

K=B 
IFD=11THEN1111 
IFD=12THEN120g 
IFD=13THEN13@@ 
IFD=l14THEN140@ 
IFD=15THEN1500 
IFD=1L8THEN180@G 
IFD=17THEN17@0@ 
IFD=lL6THEN16900 
T=I 

U=J 

K=D 
IFD=11THEN3912 
IFD=12THEN 3920 
IFD=13 THEN 39390 
IFD=14THEN 3949 
IFD=15 THEN 39506 
IFD=l6THEN 3960 
IFD=17 THEN 39790 
IFD=18THEN 39898 
PLOTI ,J,32 
I=I-1 
IFI<1THENI=32 
PLOTI,J,D 
GOTO100@G 

PLOTI ,J,32 
I=I-l 

J=J-1 
IFI<1THENI=32 
IFJ<1THENJ=24 
PLOTI,J,0 
GOTO1GGID 

PLOTI ,J,32 
J=J-1 
IFJ<LTHENJ=24 
PLOTI,J,D 
GOTOLOAG 

PLOTI ,J,32 
I=I+1 

J=J-1 
IFJ<1LTHENJ=24 
IFI>32THENI=1 
PLOTI,J,D 
GOTO1OBG 
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PLOTI,J,32 
I=I+l 
IFID>32THENI=1 
PLOTI,J,D 
GOTO1GO@ 

PLOTI ,J,32 
I=I+l 

J=JI+1 
IFI>32THENI=1 
IFJ>2Z4THENJ=1L 
PLOTI,J,D 
GOTO160@ 
PLOTI,J,32 
J=J+1 
IFJ>24THENJ=1 
PLOTI ,J,D 
GOTO1GG@ 

PLOTI ,J,32 
I=I-l 

J=JI+1 
IFI<1THENI=32 
IFJ>24THENJ=1 
PLOTI,J,D 
GOTO1600 
SOUND2;1 
PLOTX,Y,K 
FORI=96T01@63 
CHARI, 

NEXT 

PLOTX,Y,K 
IFX-1<1THENX=32 
IFY+1>24THENY=L1 
PLOTX-1,Y+1,1903 
IFX+1>32THENX=L 
PLOTX+1,Y,97 
IFX-1<1LTHENX=32 
PLOTX-1,Y,98 
IFY+1>24THENY=1 
PLOTX,Y+1,99 
IFY-1<]1THENY=24 
PLOTX,Y-1,100 
IFX+1>32THENX=1 
IFY+1>24THENY=1 
PLOTX+1,Y+1,101 
TFX-1<1LTHENX=32 
IFY-1<1THENY=24 
PLOTX-1,Y-1,1062 
PLOTX,Y,96 
COLOR13,2,2 
PLOTX,Y,K 


CHAR96, 4AAC7C1F3FD6B574 
CHAR1G@@,9000000004040489 
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CHAR1@2 ,00090190080498290118 
CHAR103,0C010204 

CHARO7 , G@O@GGBGFCODCH20CB 

CHAR98 ,G60100300C8 30003 

CHAR99 ,AA4A448484 
CHAR1@1,49605028 

PLOTX,Y,96 

COLOR13,15,1 

CHAR1@1,4060B02819 

COLOR13,12,1 
CHAR101,4060B0282010 
COLOR13,11,1 
CHAR1@1,4060B0201010 

FORL=1T05 

NEXT 

COLOR13,180,1 

COLOR13,9,1 

COLOR13,7,1 

COLOR13,2,1 

GOTO500@ 

CHARK,@84CC6181872BA62 

X=C 

Y=J 

P=3 

GOTO4800 

CLS 

IFP=1THENPRINT"WELL DONE!! ";AS 
IFP=2THENPRINT"WELL DON !! "3BS 
PRINT 

PRINT"YOU WERE ABLE TO DESTROY YOUR" 
IFP=1LTHENPRINT"OPPONENT ";BS 
IFP=2THENPRINT"OPPONENT ";AS 
IFP=3THENPRINT“OPPONENT A " 
FORI=1T05 

PRINT 

NEXT 

PRINT"DO YOU WANT ANOTHER GO (Y/N)" 
INPUTZS 

IFZS="Y"THENL 

IF ZS="N"THENEND 


GOTO600@ 
PRINT" SPACE DUEL" 
" BY D.C.ROBERTSON" 
FORT=1TO5@ 
NEXT 
CLS 
PRINT"THE OBJECT IS VERY SIMPLE IT " 
PRINT"IS TO DESTROY YOUR OPPONENTS " 
PRINT"SHIP."™ 
PRINT 
PRINT"YOUR CONTROLS ARE-" 
PRINT 
PRINT"TO ROTATE LEFT MOVE THE " 
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9939 PRINT"JOYSTICK LEFT" 

9848 PRINT 

9941 PRINT"TO ROTATE RIGHT MOVE THE " 
9942 PRINT"JOYSTICK RIGHT" 

9843 PRINT 

9945 PRINT"TO FIRE PRESS THE RIGHT FIRE "™ 
9946 PRINT"BUTTON" 

9847 PRINT 

9948 PRINT"TO GO INTO HYPERSPACE PRESS " 
9949 PRINT"THE LEFT FIRE BUTTON," 

9200 FORU=1TO0400 

9201 NEXT 

9202 CLS 

9300 PRINT"THE CONTROLS APPLY TO BOTH " 
9301 PRINT"JOYSTICKS." 

9382 PRINT 

9400 PRINT"YOU CAN NOT HIT YOUR OPPONENT" 
9401 PRINT"AT POINT BLANK RANGE _" 
9500 PRINT"PLEASE TYPE IN YOUR NAMES " 
9501 PRINT"PLAYER 1 ():"; 

9502 INPUTAS 

9503 PRINT 

9504 PRINT"PLAYER 2 ():"; 

9505 INPUTBS 

9998 CLS 

9999 GOTO19BOG 
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GOLF 


Care to play a round on the Wizzard golf corse? Try to sink 
your- Dutt but be careful that you don't lose your ball in the 
sand trap! 


1 GOTO780@ 

3 REM *BRETT ELLIOTT ‘'83* 
4 GOSUBIGGG 

10 CLS 


15 DATA76,79,83,84,32 
16 DATA66,65,76,76 


20 PRINT MRR RR RRR KARR KKK KER KE KKK RAK REM 
30 PRINT"* BRETT ELLIOTT'S MINI PUT *" 
35 PRIN TI RA Ak RRO Rk kok ak Rok kok tok kok eM 
36 PRINT 
37 PRINT 
38 PRINT 
39 PRINT 
40 PRINT 
41 PRINT 
42 PRINT"THE ‘POWER' RATING SHOWS HOW" 
43 PRINT 


44 PRINT"HARD YOU WILL HIT THE BALL." 
45 PRINT 

46 PRINT"THE RIGHT ARROW INCREASES IT" 
47 PRINT 

48 PRINT"AND THE LEFT ONE DECREASES IT" 
5@ PRINT"PRESS 'SHIFT' TO HIT BALL ." 


52 PRINT 
53 PRINT"TRY NOT TO STOP IN THE SAND." 
54 PRINT 
55 PRINT 


58 PRINT"<PRESS RETURN TO BEGIN>" 
6G IF PEEK (27) =9THEN1@O 

70 GOTO6@ 

100 PRINT"PLAYER HOLE POWER " 
11@ FORZ=1T022 

120 PRINT" " 

130 NEXT 

131 PLOT3,2,8 

132 PLOT3,3,19@ 
133 PLOT4,2,8 

134 PLOTS5,2,14 

135 PLOT4,3,11 
136 PLOT5,3,15 
138 PLOT3,4,12 
140 PLOT4,4,13 
146 PLOT3,20,120 
147 PLOT5,20,120 
148 PLOT32,20,126 
15@ FORZ=1T032 
168 FORX=21T024 






ty." 


cf 
tg 
ey 
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PLOTZ,X,8 
NEXT 

NEXT 

B=RND (10)+5 
H=RND (10) +17 
PLOT10,1,P 


PLOT18,1,N 


PLOT27,1,S 

PLOTH+1,21,16 

PLOTH,21,9 

PLOTH+3,21,16 
PLOTH-4,21,16 

PLOTB,20,1 

IFB>HTHEN260 
CHAR144,2020202020202020 
CHAR146,2020202070FO0F 060 
CHAR145, 2020282020202029 
PLOTB-1,18,144 
PLOTB-1,19,145 
PLOTB-1,20,146 

V=(B-1) 

GOTO 300 

CHAR144 ,0404040404040404 
CHAR146,040404040EO0FOFQ6 
CHAR145,80404040404040404 
PLOTB+1,18,144 
PLOTB+1,19,145 
PLOTB+1,20,146 

V=(Bt1) 
IFPEEK (21) =68THENS=S+1 
IFS>L1L2THENS=104 
IFPEEK (25) =9THENS=S-1 
IFS<104THENS=112 
IFPEEK (21) =34THEN 3490 
PLOT27,1,S 

GOTO 308 

REM * SHOOT SHOT * 

IF P=49THENO=O+1 
IFP=50THENT=T+t+1 
IFB>HTHEN 406 

IFB+ (S-103) >32THEN 300 
CHAR144,40480404029202020 
CHAR145,2020202010101010 
CHAR146,080808080EQFQOFO6 


SOUND2;@ 


FORZ=BTOB+ (S-103) 
PLOTZ,20,1 
PLOTZ,20,@ 

NEXT 

B=(Z-1) 


IFB=(H+1) ORB= (H+3) ORB= (H-4) THEN800 


PLOTB,29,1 
IFB=HTHEN5@0 
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388 FORZ=17T020 


389 
396 
395 
400 
481 
462 
493 
404 
405 
4190 
420 
425 
436 
435 
440 


523 
524 
525 
526 
536 
546 
556 
6090 
610 
626 
656 
700 
710 
715 
720 
730 
748 
758 
768 
765 


PLOTV,2Z,@ 

NEXT 

GOTO0210 

IFB- (S-103) <2THEN3@@ 
CHAR144,0202020204040404 
CHAR145,@4040404080808908 
CHAR146,10190101070FQOFG6@ 
SOUND2;@ 

FORZ=BTOB- (S-103) STEP-1 
PLOTZ,20,1 

PLOTZ,20,@ 

NEXT 

B= (Z+1) 

IF B= (H+1) ORB= (H+3) ORB= (H-4) THEN8@@ 
PLOTB,2@,1 

IFB=HTHEN5@@ 

FORZ=17T0O20 

PLOTV,Z,@ 

NEXT 

GOTO210 

PLOTH-2,18,83 
PLOTH-1,18,85 
PLOTH,18,78 
PLOTH+1,18,75 
SOUND31;0,27;0 
FORZ=H-3TOH+3 

PLOTZ,18,@ 

NEXT 

FORZ=17T020 

PLOTV,Z,@ 

NEXT 

PLOTH,21,8 

PLOTB,20,9 

PLOTH+1,21,8 
PLOTH+3,21,8 
PLOTH-4,21,8 

P=P+] 

IF P>5@THEN600 

GOTO191 

P=49 

N=N+1 

IFN>57THEN7@@ 

GOTO191 

PRINT"¥AKKKKK KKK KKK KKK KKK KKK KR KKK EN 
PRINT 

PRINT 

PRINT"YOU TWO HAVE FINISHED " 
PRINT 

PRINT"HERE ARE THE FINAL SCORES" 
PRINT 

PRINT 

PRINT 
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PRINT"PLAYER 1 "20; 
IFO<TTHENPRINT" THE BEST !" 
IFT<OTHENPRINT" " 

PRINT 

PRINT 

PRINT"PLAYER 2 ">T; 
IFT<OTHENPRINT" THE CHAMP !" 


IFO<TTHENPRINT" " 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT"<RETURN FOR ANOTHER GAME>" 
PRINT 

PRINT 

PRINT 

PRINTUAKRK KKK KKK KKK EKKEKEKEKEKKKKKKEREN 


IF PEEK (27) =9THEN3 


GOTO798 

REM * LOST BALL * 
FORZ=119T0131 
POKE4318,2Z 
NEXT 
IFP=49THENO=0+5 
IFP=5QTHENT=T+5 
FORZ=(H-5) TOH+3 
READD 
PLOTZ,18,D 
NEXT 

RESTORE 

FORZ= (H-5) TOH+3 
PLOTZ,18,@ 

NEXT 
FORZ=17T020 
PLOTV,2Z,@ 

NEXT 

GOTO0522 
FORZ=1190TO131 
POKE4318,2Z 

NEXT 
FORZ=17T029 
POKE4214,2Z 

NEXT 
FORZ=205T0230 
POKE4322,2Z 

NEXT 

GOTO4 

REM * SET COLORS CHARS * 
B=RND (198) +5 
CHAR2,BG0770044F003443 
H=RND (16) +17 
p=49 

N=49 
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9141 


S=104 

CHAR1 , 99000000183C3C18 
CHAR8 , FFFFFFFFFFFFFFFF 
CHARS , G@GG000000081C3E7 
CHAR1G,FFFFFFFFFEFDFBFF 
CHAR11,FFDFBF7EFEFCFCFA 
CHAR12,FFFFFFFFFFFEFCF@ 
CHAR14, EGEGELEGECEGCO8O 
CHAR15,1008082824444088 
CHAR16 , DF8E3803 
CHAR13,FGF474C509GA10E@ 
CHAR164 , G@G00000000000018 
CHAR1G5 , GOGOGGGBOGGGGGOFF 
CHAR196 , GOOG0GGGGG003CFF 
CHAR1G8 , G@O00QQ007EFFFFFF 
CHAR109 ,@000007EFFFFFEFF 
CHAR11@,00003C7EFFFFFFFF 
CHAR111,003C7EFFFFFFFFFF 


9142CHAR112,3C7EFFFFFFFFFFFF 


9143 
9144 
9145 
9146 
9147 
9260 


CHAR1O7 ,@BOOOOOOOO7EFFFF 
CHAR12@,060408985838183C 
CHAR144, 2020202029 202020 
CHAR145,202020202020202G 
CHAR146, 2020202070FGFG60 
COLOR2,11,6 


92186COLOR,6 


9226 
9230 
9240 
9258 
9268 
92790 
928¢ 
9299 
9295 
9999 


COLOR1,16,6 
FORZ=5TO12 
COLORZ,16,6 
NEXT 
COLOR3,2,11 
COLOR14,16,6 
COLOR15,16,6 
COLOR16,11,6 
COLOR19,2,6 
RETURN 
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U.F.O. 


Can you help the renegade alien escape the planet? You must 
pilot your ship carefully to avoid both the pursuing U.F.0O.s 
and the space mines. Keep a careful eye on your fuel level and 
keep watch on your passenger, he may fall out! 


CLS 

A=12 

B=12 

C=14 

D=8 

L=0 

COLOR3,13,13 

GOSUBIBGBO 

COLOR2,16,2 

10 CHAR1 ,6@040CG7FBC182006 
ll CHAR8 ,@924183C7EC37E3C 
12 FORZ=3T031 

13 FORX=17T0O20 

16 PLOTZ,X,16 


OwOMOnNAMN &®WN FE 


17 NEXT 
18 NEXT 
20 REM * BEGIN ACTION * 
21 G=Gtl 


22 IFG>125THENGOSUB410@ 

23 PLOTF,1,G 

24 IFRND (5) =1THENGOSUBS50@0@ 

26 IFA=CANDB=DTHEN 3800 

27 IFF<19THENPOKE4214,245 

28 IFG=12G8ANDF=23 THENGOSUB600G 
29 PLOTA,B,@ 

30 IFA=SANDB=16THENGOSUB65@@G 
31 A=A+l 

32 IFA>27THENA=12 

33 IFPEEK (21) =17THENB=B-1 

34 IFPEEK (21) =34THENB=B+l1 

35 IFB<3THENB=3 

36 IFB>16THENB=16 

37 IFA=20ANDB=3THENGOSUB460@0 
38 PLOTA,B,1 

39 PLOTC,D,@ 

48 C2=ct+l 

4l IFC>27THENC=14 

42 M=RND (2) 

43 IFM=1THEND=D+1 

44 IFD>1L6THEND=16 

45 IFM=2THEND=D-1 

46 IFD<3THEND=3 > 
47 IFC= (P+1l1)ANDJ<@THENGOSUB1@OOG 

48 IFB=HTHEN 3000 

49 IFC= (Q+1)ANDK<OTHENGOSUB1L59@@ . 
56 IFB=ITHEN30090 
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55 
56 
57 
58 


60 

61 

65 

1006 
1001 
1002 
1010 
1020 
1030 
1835 
1040 
1856 
1055 
1056 
1860 
1070 
1080 
1500 
1581 
1582 
1516 
1520 
1530 
1535 
1546 
1558 
1560 
1566 
1576 
1586 
1590 
2000 
2661 
28063 
2005 
20686 
2007 
28008 
2009 
2010 
2011 
2012 
2613 
2014 
2015 
2016 
2617 
2026 


PLOTC,D,8 
J=J+1 
IFJ>10THENGOSUB19@3@ 
K=K+1 
IFK>10THENGOSUB1539@ 
IFO=0THENL=L+t1 
IFL>30THEN 3000 
GOTO20 
SOUND16;@ 
H=D 
J=1 
PLOTP,H,9 
RETURN 
SOUND1;94 
FORZ=17T0O29 
POKE4210,2Z 
NEXT 
PLOTP,H,@ 
H=9 
J=-600 
GOSUB9982 
RETURN 
SOUND16;9 
I=D 
K=1 
PLOTQ,I1,9 
RETURN 
SOUND1; 0 
FORZ=17T029 
POKE4210,2Z 
NEXT 
PLOTQ,I1,@ 
I=9 
=-600 
GOSUB998@ 
RETURN 
REM 
PRINT"* BRETT ELLIOTT'S 'U Foot *" 
PRINT 
PRINT"YOU ARE FLYING A GREEN JET" 
PRINT 
PRINT"ABOVE THE PLANET VULCAN" 
PRINT 
PRINT"YOU HAVE A VULCAN PRISONER ON" 
PRINT"BOARD WHO IS TRYING TO GET" 
PRINT 
PRINT“AWAY FROM PRISON AND YOU ARE" 
PRINT 
PRINT"HELPING HIM ESCAPE." 
PRINT 
PRINT"THE VULCAN'S ARE AFTER HIM" 
PRINT 
PRINT“"AND ARE GOING TO SHOOT YOU." 
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2025 PRINT 

20626 PRINT"YOU'RE HIT IF YOU GET ON THE" 
2027 PRINT 

2828 PRINT"SAME LEVEL AS THE MINES !!." 
2829 PRINT 

2030 PRINT"PRESS RET'N FOR OPERATION" 
2032 IFPEEK (27) =9THEN21090 

2035 GOT0O2632 

2108 CLS 

2105 PRINT"* BRETT ELLIOTT'S 'U F Ot *" 
2118 PRINT 

2120 PRINT 

2130 PRINT"THE CTRL BUTTON TAKES YOU UP" 
2135 PRINT 

2148 PRINT"AND SHIFT TAKES YOU DOWN." 
2145 PRINT 

2158 PRINT"THE PRISONER HATES SEATBELTS" 
2155 PRINT 

2168 PRINT"AND FALLS OUT A LOT. YOU MUST" 
2175 PRINT"GET HIM BEFORE HE'S CAUGHT." 
2189 PRINT 

2185 PRINT"YOUR FUEL IS SHOWN UP TOP OF" 
2198 PRINT 

2195 PRINT"THE SCREEN. DON'T LET IT RUN" 
2200 PRINT 

2205 PRINT"OUT. TO FILL UP DOCK ON THE " 
2215 PRINT"KEEP OFF THE LEVEL OF MINES" 
2220 PRINT 

2230 PRINT 

2235 PRINT"<PRESS RETURN TO BEGIN>" 

2240 IFPEEK (27) =9THENRETURN 

2258 GOTO224G 

3808 SOUND1;9@ 

3005 FORZ=17T029 

3010 POKE4210,2Z2 

3020 NEXT 

3038 PRINT"SCORE..."3Y; 

3040 FORZ=1T0400 

3058 NEXT 

3068 RUN 

4808 SOUND1;@ 

4905 FORZ=15T025 

4018 PLOTZ,1,12@ 

4015 POKE4322,210. 

40920 NEXT 

4825 SOUND1;9 

4030 F=25 

4035 G=126 

4840 RETURN 

4100 F=F-1 

4118 G=126 

4120 IFF<15THEN3000 

4138 RETURN 
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COLOR14,12,12 
COLOR14,2,2 
RETURN 
FORZ=(B+1)T015 
PLOTA,Z,112 
PLOTA,Z,@ 
FORV=1T0O4 
NEXT 
NEXT 
O=6 
S=A 
PLOTA,Z,113 
RETURN 
SOUND16;@ 
O=1 
L=@ 
Y=Y+23 
RETURN 
REM * DEFINITIONS * 
GOSUB2080 
CLS 
CHARI ,G@8492A1CFC122946 
CHAR2 ,O@OOOGOGOFFFF8181 
G=126 
COLOR16,14,2 
FORZ=17T029 
F=25 
POKE4210,Z 
NEXT 
FORZ=170T0194 
POKE4214,2Z 
NEXT 
FOR Z=205T023G 
POKE4322,Z 
J=-766 

=-706 
NEXT 
M=RND (2) 

P=RND (10)+14 
PLOT20,2,2 
PLOT13,1,69 
PLOT27,1,70 
FORZ=15T025 
PLOTZ,1,120 
NEXT 
FORZ=1TO15 
X=RND (2) 
IFX=1THENR=R+1 
COLOR15,16,2 
IFX=2THENR=R-1 
IFR<4THENR=4 
PLOTR,Z,1@04 
NEXT 
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CHAR112,422418185A3C1818 
CHAR113,995A321818182442 
COLOR14,16,2 
CHAR120,FFFFFFFFFFFFFFFF 
CHAR121,FEFEFEFEFEFEFEFE 
CHAR122,F8F8F8F8F8F8F8F8 
CHAR123,FOFOFOFOFOFOFOFG 
CHAR124,COCOCBCBCBCBCBCB 
CHAR125 , OGBGBOGHBOBODBOD 
SOUND1;@ 

Q=RND (10) +14 

RETURN 

P=RND (10)+14 

RETURN 
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FLANKER 


Here is a two dDlayer computerised version of the old favorite 


board game Reversi 


also Known as Othello. 


Let your Wizzard move 


the pieces for you on the screen as you enjoy this age old 


game. 


2290 


REM --WIZZARD FLANKER-- 
REM BY TONY FENECH 

REM APRIL 83 

CLS 

PRINT" FLANKER" 
PRINT 

PRINT 

PRINT 


PRINT"DO YOU WANT INSTRUCTIONS ?" 


PRINT"REPLY Y OR N"; 
INPUTBS 

IFBS="Y"THEN8@00 
IFBS<>"N"THEN16 

CLS 

DIME (11) 

DIMS (8,8) 
DATA7@,76,65,78,/5,69,82 
FORB=12T018 

READC 

PLOTB,4,C 

NEXT 
CHAR1@5,FEFEFEFEFEFEFE@@ 
CHAR115,90083C3C3C3COGGB 
CHAR125,FEFEFEFEFEFEFE@@ 
CHAR135,FEFEFEFEFEFEFE@@ 
CHAR145,6060606060603E00 
CHAR146, 3E60607C60603EG0G 
CHAR147,3E6@0687C60606000 
CHAR148,7E18181818181800 
CHAR155,7C62627C68646200 
CHAR156,3C18181818183C0d 
CHAR157,3CC2COCEC6C6FEQB 
CHAR158 ,6262627E626262008 
CHAR159,7E1818181818180@ 
COLOR19,7,2 

COLOR26,16,2 
COLOR14,11,6 

FORW=11T018 

FORX=11T018 

PLOTX,W,1@05 

NEXTX 

NEXTW 

W=18 

FORX=49T0O56 

W=Wtl 

PLOTW,9,X 
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236 
240 
256 
266 
270 
280 


306 
361 
316 
311 
320 
336 
331 
340 
341 
350 
360 
376 
386 
406 
461 
462 
483 


416 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
436 
431 
432 
433 
434 
435 
436 
437 
438 
439 
44@ 
450 
460 


480 
490 
580 


NEXT 
wW=19 

FORX =49T056 
W=Wtl 

PLOTS ,W,X 
NEXT 
COLOR17,16,2 
PLOT14,14,135 
SOUND31;3 
PLOT15,15,135 
SOUND31;3 
COLOR16,7,2 
PLOT15,14,125 
SOUND31;3 
PLOT14,15,125 
SOUND31;3 
§(4,5)=1 
S(5,4)=1 

S (4,4) =2 
S(5,5)=2 

X=G 

E(1)=2 

E (2) =2 

E(5)=2 

E(6)=2 

W=0 

p=2 
PLOT22,9,83 
PLOT23,9,67 
PLOT24,9,79 
PLOT25,9,82 
PLOT26,9,69 
PLOT22,11,145 
PLOT23,11,146 
PLOT24,11,147 
PLOT25,11,148 
PLOT22,13,155 
PLOT23,13,156 
PLOT24,13,157 
PLOT25,13,158 
PLOT26,13,159 


DATA84,79,32,80,76,65,89 


FORB=25T031 
READD 
PLOTB,18,D 
NEXT 
GOSUB 6000 
GOSUB 4000 
W=0 

L=-1 

I=6 

GOSUB 5000 
L=-1 
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516 I=1 

528 GOSUB 5800 
538 L=90 

548 I=1 

558 GOSUB 5800 
568 L=l 

576 I=1 

588 GOSUB 580¢ 
598 L=l 

600 I=@ 

618 GOSUB 5880 
620 L=1l 

630 I=-1 

646  GOSUB 5880 
658 L=0 

660 tI=-1 

678 GOSUB 50686 
680 =-] 

696 I=-1l 


786 GOSUB 560@ 

765 IFW=8THENSOUND2,3 
710 IFW=8 THEN 80@ 
728 S(H,V)=P 

73@ PLOTV+10,H+19,0 
731 SOUND31;3 

748 GOTO446 

888 GOSUB 405@ 

881 GOTO466 

816 GOTO 458 

4000 V=1 

4001 H=1 

4818 GOTO 4106 

4050 IFT=@8THENT=1905 
4651 IFT=1THENT=125 
4052 IFT=2THENT=135 
4960 PLOTZ+16,Y+10,T 
410@ Y=H 

4110 Z=V 

4120 T=S(Y,2Z) 

4121 IFT=@ THEN U=2 
4122 IFT=1 THEN U=7 
4123 IFT=2 THEN U=16 
4124 COLOR15,U,2 
413@ PLOTV+10,H+10,115 
4200 LET J=JOY (P) 
4218 IFJ=5 THEN 4300 
4220 IFJ=3 THEN 4400 
4230 IFJ=l1 THEN 4580 
4240 IFJ=7 THEN 4600 
425@ IFJ=@ THEN 4700 
4268 GOTO 4266 

4300 IFH=1 THEN 4206 
4310 H=H-1 


4326 
4400 
4410 
4420 
4580 
4516 
4526 
4600 
4619 
4620 
4766 
4762 
4703 
4704 
47085 
4786 
4767 
4788 
4769 
4710 
4711 
4726 
4730 
5888 
5861 
5602 
5819 
5820 
5830 
584d 
585@ 
5866 
5870 
508@ 
5106 
511¢ 
5126 
5130 
5146 
515@ 
5168 
5179 
5171 
5188 
5360 
60806 
6001 
6082 
6863 
6004 
6085 
6806 
6007 


GOTO 4085@0 

IFV=8 THEN 4200 

V=Vtl 

GOTO 4050 

IFH=8 THEN 4200 

H=H+1 

GOTO 40659 

IFV=l THEN 4200 

V=V-1 

GOTO 4058 

LET K=JOY (P+2) 

IFK=@ THEN 4200 

IFK=1 THEN 4710 
IFT=@THENT=105 
IFT=1THENT=125 
IFT=2THENT=135 
PLOTZ+10,Y+10,T 

GOSUB 6000 

GOTO4800 

IFS (H,V) <>@THENSOUND2; 3 
IFS (H,V) <>@THEN4 200 
COLOR15,6,2 

RETURN 

REM RECORD WINS IF ANY 
C=V 

R=H 

X=G 

C=C+L 

IFC>=90RC<=@0 THEN 5300 
R=R+I 

IFR>=9ORR<=8 THEN 5300 
IFS(R,C)<>O THEN 5100 
X=X+1 

GOTO 5020 

IFX=@0 THEN 5300 
IFS(R,C)<>P THEN 5390 
W=W+X 

C=C-L 

R=R-I 

IFR=H AND C=V THEN 5300 
S(R,C) =P 
PLOTC+10,R+19,Q 
SOUND31;3 

GOTO 5138 

RETURN 

REM SET NXT PLR CNTRLS 
IFW=0 THEN 6030 
E(P)=E(P)+1+W 

E (0) =E (0) -W 

E(P+2) =8 

E (P+4) =E(P) 
IFE(P+4)<10 THEN 6010 
E(P+2)=E(P+2) +1 
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E(P+4) =E(P+4) -10 

GOTO 6906 

E(0+2) =6 

E (0+4) =E (0) 

IFE(O+4)<10 THEN 6829 

E (O+2) =E(O+2) +1 

E (0+4) =E (0+4) -1@ 

GOTO 6012 

w=0 

IFP=l1 THEN 6120 

Q=125 

p=l 

O=2 

GOTO6151 

Q=135 

P=2 

o=l 

E(9)=E(5)+48 

E(7) =E(3) +48 

PLOT28,11,E(7) 

PLOT29,11,E(9) 

E(10)=E(6)+48 

E(8) =E(4)+48 

PLOT28,13,E(8) 

PLOT29,13,E(10) 

E(11)=E(1)+E(2) 

IFE (11) <64THEN6200 

IFE(1)>E(2) THENQ=125 

IFE (1) <E(2) THENQ=135 

IFE (1) =E (2) THENQ=32 

PLOT22,17,0 

PLOT23,17,Q 

PLOT22,18,Q 

PLOT23,18,Q 

IFE (11) >=64THENIOOG 

RETURN 

REM INSTRUCTIONS 

CLS 

PRINT" FLANKER" 

PRINT 

PRINT"THE AIM IS TO END THE GAME" 
PRINT"WITH MORE THAN 32 UNITS" 
PRINT"CAPTURED. UNITS ARE CAPTURED" 
PRINT"BY FLANKING ONE OR MORE OF" 
PRINT"YOUR OPPONENT'S UNITS ON TWO" 
PRINT"OPPOSING SIDES... VERTICALLY," 
PRINT"HORI ZONTALLY OR DIAGONALLY." 
PRINT 

PRINT"CURSOR CAN BE MOVED BY Joy" 
PRINT"STICKS. WHEN CURSOR IS IN" 
PRINT"DESIRED SQUARE PRESS LEFT" 
PRINT"FIRE BUTTON TO CAPTURE YOUR" 
PRINT"OPPONENT'S FLANKED UNITS." 
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8632 


8034 
8836 


8938 
8040 
8842 
8044 
8990 
8995 
8999 
9600 
9116 
9126 
9130 
9140 
9150 
9168 
9199 
9200 
9210 
9580 
951¢ 
9526 
9530 
9546 
9551 
9555 
9560 
9999 


PRINT"ONLY PRESS RIGHT FIRE BUTTON" 
PRINT"WHEN A VALID MOVE CANNOT BE" 
PRINT"MADE.. THIS WILL FORFIET " 
PRINT"YOUR TURN." 

PRINT 

PRINT" GOOD HUNTING" 

PRINT 

PRINT"PRESS ANY KEY TO CONTINUE" 
INPUTBS 

GOTO9@ 

IFE (1) =E (2) THEN9199 
DATA32,32,87,32,/9,32,78 
FORB=25T031 

READD 

PLOTB,18,D 

NEXT 

GOT09500 

REM DRAWN GAME 

DATA68 ,32,82,32,65,32,87 

GOTO91206 

PRINT" END OF GAME" 

PRINT 

PRINT"DO YOU WANT TO PLAY AGAIN ?" 
PRINT"REPLY Y OR N"; 

INPUTBS 

IFBS="N"THEN END 

IFBS="Y"THENRUN 90 

GOT09530 

END 
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OMEGA BATTLE 


Can you hold off the invading saucers? You only have 58 shots 
to destroy the aliens that appear at random on the screen. Be 
careful not to run into any that appear at ground level, the 

collision will destroy you! 


CHAR1,18181818BDBDFF81 
CHAR8 ,0000181818 

CHAR190 ,0000007E 
CHAR1@1,0010101919019019 
CHAR3@,42BDA55A5AA5BD42 
CHAR2,1818183C7EFF5AA5 
CHAR3 ,42FFFFFFFF244281 
CHAR4,181818187E7EDBDB 
CHARS, 1818995A3C3C5A99 
10 CHAR6,1818995A3CFF3CC3 
ll CHAR104,FFFCFGEGCOCO8G8G 
12 B=23 

13 GOSUB7009 

14 COLOR1,6,1 

15 COLOR2,16,1 

16 COLOR16,19,1 

17 CHAR1G5, FF3F0FO0703030101 
18 CHAR1G6,01910303070F3FFF 
19 CHAR107 , 8080COCOEGFOFCFEF 
20 COLOR4,7,1l 

25 COLOR13,12,7 

26 COLOR17,14,1 

27 X=4 

28 Yy=4 

29 COLOR14,7,1 

30 COLORS,16,1 

31 CHAR32,00008000000010 
32 CHAR9Q1,894A2CF81F345291 & 
35 GOSUB600@ 


OMATnN NS WN 


36 T=48 
37 S=48 
38 P=1 
40 A=16 
41 H=16 
42 N=18 
45 CLS 


50 PLOTA,23,1 
60 GOSUB406@ 





65 REM 
76 REM > OMEGA BATTLE < 
75 REM 
86 REM > BY BILL BOVILL < 
85 REM 


99 COLOR12,8,1 
168 J=J0Y(1) 
161 COLOR16,16,1 
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IFE>3THENGOSUB929@ 

IFRND (0) <10THENGOSUB9@Q@ 
CHAR120, 3C7EFF5A5AFF7E3C 
IF H=A AND N=B THEN 9500 
IFJ=7THEN1OOG 
IFJ=3THEN200@ 

IFJOY (3) >@THEN390@ 
COLOR16,8,1 
COLOR5,RND(2)+14,1 
CHAR120, 3C7EFFASA5FF7E3C 
GOTO100 

A=A-1 

CHAR12@, 3C7EFFAS5A5FF7E3C 
IFA=3THENA=4 

PLOTA,B,1 

PLOTA+1,B, 32 

GOTO16@ 

A=A+1 

CHAR120, 3C7EFFAS5SASFF7E3C 
IFA=31THENA=306 

PLOTA,B,1 

PLOTA-1,B, 32 

GOTO10@ 

M=M+1 

IFV=99THENRETURN 
FORF=21TO1OSTEP-1 
IFM=50THEN9500 
IFF=NANDA=HTHEN996@ 
IFF=YANDA=XTHENGOSUB560@ 
PLOTA,F,8 

PLOTA,F+1,32 

NEXT 

PLOTA,10,3@ 

PLOTA,10,32 

B=23 

IFI=1THENGOSUB9@@O 

1=@ 

GOTO108 

FORC=2T032 

PLOTC,24,100 

PLOTC,1,10@ 

NBXT. 

PLOT3,23,107 
PLOT31,23,106 
FORC=24TO1STEP-1 
PLOT32,C,181 

PLOT2,C,191 

NEXT 

PLOT3,2,104 

PLOT31,2,195 

RETURN 


PRINT"THERE ARE THREE LEVELS OF" 


PRINT 
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PRINT"DIFICULTY:-" 
PRINT 
PRINT 
PRINT"1] — BEGINNER." 
FORJ=1T03 
PRINT 
NEXT 
PRINT"2 —- AMATEUR." 
FORJ=1T03 
PRINT 
NEXT 
PRINT"3 - PROFESSIONAL." 
FORJ=1T03 
PRINT 
NEXT 
PRINT" >WHICH LEVEL?"; 
D=49 
PLOT16,24,D 
IFJOY (3) >OTHEN5S130 
IFJOY (1) >OTHEN5300 
GOT05995 
D=D+1 
IFD=52THEND=49 
PLOT16,24,D 
GOT05695 
IFD=49THENO=1900 
IFD=58THENO=58 
IFD=51THENO=20 
PRINT 
RETURN 
X=RND (26) +2 
y=4 
=-19 
T=T+1 
S=S-1 
GOSUB9900 
RETURN 
PRINT"L > < ASTROSMASHER" 
PRINT 
PRINT"2 > < SPACESHOOTER" 
PRINT 
PRINT"3 > < CREEPYCRAWLER" 
PRINT 
PRINT"4 > < SPACEDOOBER"™ 
PRINT 
PRINT"S > < SPACEPROBE I" 
PRINT 
PRINT"6 > < SPACEPROBE II" 
PRINT 


PRINT"WHAT IS YOUR STARSHIP CHOICE"; 


D=49 
PLOT32,24,49 
PLOT31,24,63 
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REM 

IF JOY (3) >@THEN6056 
COLORS5,RND(2)+14,1 
IFJOY (1) >O@THEN606G 
GOTO6651 

D=D+1 

IFD=55THEN6041 
PLOT32,24,D 

GOTO6651 
IFD=49THENRETURN 
IFD=50THEN6169 
IFD=51THEN6 290 
IFD=52THEN6300 
IFD=53THEN6 406 
IFD=54THEN6500 

CLS 

GOTO6OGG 
CHAR1,1818183C7EFF5AA5 
CHAR8 , 080600001818 
RETURN 
CHAR1,42FFFFFFFF 244281 
CHAR8 , 000000424242 
RETURN 
CHAR1,181818187E7EDBDB 
CHAR8 ,@8881C1C08G8881C 
RETURN 
CHAR1,1818995A3C3C5A99 
CHAR8 , 4@900000000181881 
RETURN 
CHAR1,1818995A3CFF3CC3 
CHAR8 , OG@G6GGGBGGB1CG81C 
RETURN 

CLS 

FORA=6TO16 

COLORA,7,1 

NEXT 

PRINT" "; 


PRINT" >OMEGA BATTLE<" 


FORA=1T03 
PRINT 
NEXT 
GOSUB8160 
GOSUB8G00 
CLS 
GOSUB5000 
CLS 


PRINT" YOU CAN CHOOSE WHICH" 


PRINT 


PRINT" SPACESHIP YOU WANT BY" 


PRINT 


PRINT" SELECTING ITS NUMBER WITH" 


PRINT 


PRINT" THE FIRE-BUTTON" 
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7210 PRINT 

7580 RETURN 

8900 REM > MUSIC < 

8005 FORF=1T03 

8018 SOUND2;3,5;3,14;3 

8820 NEXT 

8840 SOUND2;2,4;2,13;2 

8858 SOUND2;0,6;0,15;9 

8868 SOUND2;3,5;3,14;3 

88078 SOUND2;2,4;2,13;2 

8088 SOUND2;0,6;0,15;@6 

808986 SOUND2;6,5;6,14;6 

8891 FORN=1TO10@ 

88992 NEXT 

8095 RETURN 

8100 PRINT"YOU HAVE 5@ SHOTS AT THE EN-" 
8195 PRINT 

8116 PRINT"EMY.ON YOUR 5@TH SHOT YOU " 
8115 PRINT 

8120 PRINT"WILL BE DESTROYED.AVOID GRO-" 
8125 PRINT 

8130 PRINT"UND LEVEL ALIENS,THEY WILL" 
8135 PRINT 

8148 PRINT"DESTROY YOU ON CONTACT." 
8145 PRINT 

8200 RETURN 

9000 REM > ALIEN HYPERSPACE < 
9885 CHAR120,003C7E7E7E7E3C 
9010 CHAR120,9000183C3C18 
9928 CHAR1298,00090001818 

90930 CHAR12@0, 

9950 PLOTH,N,32 

9868 H=RND(25)+5 

9878 N=RND(15)+8 

9988 IFRND (4) =3THENN=23 

9090 PLOTH,N,120 

9091 CHAR120,02000018 

9892 CHAR12@,90000183C3C18 
9993 CHAR120,003C7E7E7E7E3C 
9094 CHAR120,3C7EFFASASFF7E3C 
9895 I= 

9100 E=E+1 

9110 IFE=20THEN920@ 

9120 RETURN 

9208 REM> SMARTBOMB< 
9285 PLOTX,Y,91 

9220 PLOTX,Y,32 

9230 IFX=AANDY=BTHEN9500 

9240 IFX<ATHENX=X+tl 

9250 IFX>ATHENX=X-1l 

9268 IFY<BTHENY=Yt+l 

9270 IFY>BTHENY=Y-1 

9280 RETURN 
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9500 PLOTA,B,30@ 

9501 FORQ=1T05 

9505 COLOR4,7,1 

9506 COLOR4,1,1 

9507 COLOR4,190,1 

9508 COLOR4,1,1 

9589 COLOR4,9,1 

9518 COLOR4,1,1 

9511 v=99 

9520 NEXT 

9521 FORQ=NTO23 

9522 PLOTH,Q,129 

9523 PLOTH,Q-1,32 

9524 NEXT 

9530 IFT>S2THENI630 
9531 FORQ=1T0O19 

9532 CHAR32, 

9533 CHAR32,AA55AA55AA55AA55 
9534 NEXT 

9535 FORQ=1T08 

9536 COLORQ,1,1 

9537 NEXT 

9538 FORQ=12T016 

9539 COLORQ,1,1 

9540 NEXT 

9541 SOUND2;4,5;4,14;4 
9542 SOUND2;3,5;3,T4;3 
9543 SOUND2;1,5;1,14;1 
9544 SOUND2;4,5;4,14;4 
9545 SOUND2;3,9;3,17;3 
9546 SOUND2;1,7;1,16;1 
9547 SOUND2;3,7;3,16;3 
9548 SOUND2;1,5;1,14;1 
9549 SOUND2;3,5;3,14;3 
9550 DATA80,76,65,/78,69,84,32,73,83,32,68,69,05,68 
9551 SOUND2,1,4,1,12,1 
9552 SOUND2;7,5;7,14;7 
9568 FORK=10T023 

9576 READF 

9588 PLOTK,14,F 

95980 NEXT 

9591 IFJOY (1) =OTHEN9591 
9595 CLS 

9606 ‘RUN 

9638 DATA8@0,76,65,78,69,84,32,73,83,32,83,65,86,69,68 
9648 FORK=9T023 

9658 READF 

9660 PLOTK,14,F 

9678 NEXT 

9671 FORA=1TO1@ 

9672 S=RND(39)+1 

9673 SOUNDS;@,S+1;90,S-1;9 
9674 NEXT 
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IFJOY (1) =@THEN968G 
CLS 

RUN 

REM 

S=S+l 
IFS=58THENT=T+1 
IFS=58THENS=48 
IFT=58THEN9550 
PLOT4,2,T 


‘PLOTS,2,S 


PLOT6,2,48 
IFE=-10THENRETURN 
I=I+l 

PLOTH ,N+1,32 
PLOTH,N,3@ 
PLOTH,N,32 

F=10 

NEXTE 

GOSUB9@00 

GOTO10@ 
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CATERPILLAR 


Use the joysticks to manoever the caterpillar around your 
Wizzards screen. The longer the trail you leave behind, the 
higher the score. When you run into your trail, your game is 
over. How long can you make your trail before you die? 


INSTRUCTIONS 


The four fire buttons control the caterpillars movement. 


On the Left hand controller:- 
left button moves the caterpillar DOWN 
Right button moves the caterpillar LEFT 


On the Right hand controller:- 
Left button moves the caterpillar UP 
Right button moves the caterpillar RIGHT 


1d CLS 
20 REM <--CATERPILLAR--> 
30 REM <--A R KILGOUR--> 


49 REM 

58 REM 

60 REM 

70 REM 

80 DIML(15,15) 
85 P=10@ 


99 CHAR1,183C7EFFFF7E3C18 
95 COLOR@,12 

1@@ COLOR1,4,1 

161 CHAR28,800000000000C9CB 
182 CHAR29,C8C@ 

1893 CHAR39,9303 

164 CHAR31,0008000000000303 
110 CHAR8,FF818181818181FF 
128 COLOR2,9,1 

138 CHAR16,66141C2A3E3E1436 
148 COLOR3,16,1 

158 CHAR24,@G0000000000FFFF 
166 CHAR25,C8C8CBCBCBCBCBCB 
170 CHAR26,FFFF 

180 CHAR27,9303930303030363 
198 COLOR4,2,1 

208 FORC=5TO12 

201 COLORC,2,1 


202 NEXT 

263 R=1 

308 CLS 

318 PRINT" CATERPILLAR" 





328 FORC=1TO15 
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3396 
346 
356 
366 
376 
386 
396 
496 
410 
411 
4290 
430 
4490 
566 
561 
582 
563 
509 
516 
526 
53 
540 
556 
5608 
561 
578 
580 
590 
591 
600 
619 
626 
621 
622 
636 
640 
658 
660 
670 
680 
696 
1800 
10@1 
1810 
1920 
1630 
1631 
1046 
1041 
1042 
1643 
1644 
1658 


PRINT 

NEXT 

PRINT" 10----POINTS----209 
PLOT17,22,16 
PLOT27,22,8 
FORC=3T027 
PLOTC,22,1 
IFC=17THENGOSUB5@406 
IFC=27THENGOSUBIGGG 
SOUND1;94 

NEXT 

CLS 

R=@ 

PRINT" CATERPILLAR" 
FORC=1T022 

PRINT 

NEXT 

COLOR@,12 
FORC=8T024 
PLOTC,4,24 

NEXT 

FORC=4TO20 
PLOT24,C,25 

NEXT 

PLOT24,4,28 
FORC=24TO8STEP-1 
PLOTC,29,26 

NEXT 

PLOT24,20,29 
FORC=20TO4STEP-1 
PLOT8,C,27 

NEXT 

PLOT8,20,3@ 
PLOT8,4,31 

T=0 

G=@ 

D=10 

X=7 

Y=7 
PLOTX+8,Y+4,1 
COLOR@G,12 

X=X+1 

T=T+1 
IFX=l16THENIOGG 
L(X,Y)=L(X,Y)+1 
IFL (X,Y) >LTHENGOSUB5009@ 
IFG=1THEN9I@GO 
PLOTX+8,Y+4,1 
POKE1242,196 


ZAP" 


PRINT"SCORE ";T*10+S,"HI SCORE ";H 


IFT/D=INT (T/D) THENGOSUB6000 
IFT>PTHEN8006 
IF JOY (4) =LTHEN3 000 
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IFJOY (3) =2THEN206@ 
IFJOY (3) =1THEN490@ 

GOTO1000 

X=X-1 

T=T+1 

IFX=OTHENOOGGG 
L(X,Y) =L (X,Y) +1 

IFL (X,Y) >LTHENGOSUB58G@ 
IFG=1THEN9GOG 

PLOTX+8,Y+4,1 

POKE1242,196 

PRINT"SCORE "“;T*10+S,"HI SCORE 
IFT/D=INT (T/D) THENGOSUB660@ 
IFT>PTHEN8OOG 

IFJOY (4) =LTHEN3 0090 

IFJOY (4) =2THEN1OOD 
IFJOY (3) =1THEN4 0090 

GOTO 2000 

Y=Y-1 

T=T+1l 

IFY=O8THENIGOO 
L(X,Y)=L(X,Y) +1 

IFL (X,Y) >1LTHENGOSUB5000 
IFG=1THENIOGD 

PLOTX+8,Y+4,1 

POKE1242,196 

PRINT"SCORE "“3;T*10+S,"HI SCORE 
IFT/D=INT (T/D) THENGOSUB6890@ 
IFT>PTHEN8@QGO 
IFJOY (3) =1THEN4000 
IFJOY (4) =2THEN1OOO 
IFJOY (3) =2THEN2000 

GOTO3000 

Y=Y+1 

T=T+1 

IFY=16THENIGGG 

L(X,Y) =L(X,Y)+1l 

IFL (X,Y) >1LTHENGOSUB5@@@ 
IFG=1THENIGOG 

PLOTX+8 ,Y+4,1 

POKE1242,196 

PRINT"SCORE "3T*10+S,"HI SCORE 
IFT/D=INT (T/D) THENGOSUB6090G 
IFT>PTHEN8OOO 

IFJOY (4) =1THEN3 000 
IFJOY (4) =2THEN1OOG 
IFJOY (3) =2THEN2009 

COTO4000 

Ifl (% ¥)<4THENG=1 

IFC = TREONRETURN 

L(.,k,21 

S=S+2z6"% 

SOUND2;@6 
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"eH 


"°H 


"2H 


5856 
5866 
5876 
60098 
6019 
6030 
6040 
6050 
6060 
6070 
7880 
7898 
8800 
8810 
8020 
8030 
8840 
8845 
8050 
8860 
8076 
8080 
8090 
8100 
8119 
8120 
8136 
8135 
8136 
8140 
8158 
8168 
8176 
818¢ 
8196 
8200 
8210 
8220 
8230 
8249 
8250 
8260 
8270 
8280 
82990 
8380 
9600 
9810 
9920 
9930 
9948 
9056 
9066 


SOUND4;@ 
SOUND7;3,19;5,31;7 
RETURN 

A=RND (15) 

B=RND (15) 

L (A,B) =2 
PLOTA+8,B+4,8 
A=RND (15) 

B=RND (15) 
L(A,B) =3 

PLOTA+8 ,B+4,16 
RETURN 

CLS 

S=S+T*1G 

COLORG,2 
FORC=5TO12 
COLORC,9,1 

NEXT 

PRINT" BONUS" 
PRINT 

PRINT 

PRINT 

PRINT"SCORE "-S 
PRINT 

PRINT" +" 
PRINT 

PRINT"BONUS 1000" 
P=P+20 

IF P>200THENP=201 
PRINT 

PRINT"SCORE "e 
S=S+100@ 

PRINTS 

FORA=1TO15 
FORB=1T0O15 
L(A,B) =@ 

NEXT 

NEXT 

T=0 

X=7 

Y=7 

CLS 

FORC=5TO12 
COLORC,2,1 

NEXT 

GOTO50G 

COLORG,16 
SOUND31;9 
COLORG,12 
SOUND12;9 
COLORG,9 
SOUND31; 0 
COLORG,2 
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9978 SOUND31;1,19;5,7;7 
9888 COLORG,12 

9985 CLS 

9998 IFR=1THENRETURN 

9891 FORC=5TO12 

9992 COLORC,2,1 

9093 NEXT 

91900 S=S+T*1d 

9110 IFS>HTHENI509G 

9120 PRINT" GAME OVER" 
9130 PRINT" HHEHERET EH" 
9148 FORC=1T05 

9150 PRINT 

9155 NEXT 

9156 PRINT" ",2ZS 

9157 PRINT 

9168 PRINT"SCORE ":S,"HI SCORE "3H 
9178 FORC=1TOS 

9180 PRINT 

9190 NEXT 

9195 PRINT"ANOTHER GAME"; 
9196 P=19090 

92008 INPUTIS 

9210 GOT09700 

9500 PRINT" HI SCORE" 
9518 PRINT 

9528 PRINT 

9530 PRINT 

9548 PRINT" "2S 

9558 FORC=1TO1O 

9560 PRINT 

9578 NEXT . 
9588 PRINT"ENTER YOUR NAME" 
9596 PRINT 

9600 PRINT"FOR THE HALL OF FAME" 
9618 PRINT 

9628 INPUTZS 

9630 H=S 

9700 S=0 

97190 T=90 

9715 P=180 

9728 FORA=1TOLS5 

9730 FORB=1TO1L5 

9748 L(A,B) =@ 

9750 NEXT 

9760 NEXT 

9778 CLS 

9788 GOTO50@ 
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You must parachute from your helicopter to the stormy sea 


below. 


If you can land on the raft all 


and fall into the icy water ..... 


is well, but if you miss 


Use the CTRL key to move to the left and the Right Arrow to 
move to the right. You have four chances. Good Luck! 


CLS 

GOSUB 98006 

GOSUB 3009 

CLS 

GOSUB 1096 

X=5 

IF O<l THEN PLOT 27,1,15 
IF O<2 THEN PLOT 28,1,15 
IF O<3 THEN PLOT 29,1,15 
IF O<4 THEN PLOT 308,1,15 


IF JOY(3)>@0 THEN D=-l1 
IF JOY(4)>@0 THEN D=l 
PLOT Y,X,32 

PLOT H,5,11 

PLOT H,4,9 

IF Y<2 THEN D=l 

IF Y>31 THEN D=-1 
Y=Y+D 

X=X+1l 

PLOT Y,X,15 

PLOT H,4,19 

IF X=23 THEN 590 
PLOT T,23,32 

PLOT T+1,23,32 
U=RND(2)+1 

IF U=l THEN T=THl 

If U=2 THEN T=T-1 
PLOT T,23,5 

IF G=2 THEN GOTO 6@ 
PLOT T+1,23,5 

GOTO 60 

SOUND 1;@ 

IF Y=T THEN 749 

IF G=2 THEN GOTO 512 
L=T+1 

IF Y=L THEN 700 
O=O0+1 

IF O=5 THEN GOTO 2002 
POKE 846,32 


PRINT" YOU HAVE CRASHED."; 


PLOT Y,23,14 

FOR P=272 TO 277 
POKE 4110,-P 

FOR Z=1 TO 2 
NEXT 


588 
614 
708 
765 
710 
715 
718 
720 
1960 
1625 
1830 
1635 
1946 
1842 
1645 
165@ 
1055 
1856 
10870 
1880 
1165 


NEXT P 

GOTO 26 

POKE 846,32 

PRINT" YOU HAVE LANDED."; 
R=R+1] 

FOR X=1 TO 108 

NEXT 

GOTO 26 

T=RND (14) +10 

CHAR 5,@0000000007EFFFF 
Y=RND (208) +5 

Y=INT(Y) 

D=RND (1) +1 

IF D>1l THEN D>l 

H=Y 

CHAR 10,FF1038FE82A2827C 
CHAR 9 ,101038FE82A2827C 
CHAR 100,060C3C7CFCFFFFFF 
CHAR 11,207F 

CHAR 14,900026AF7777AF26 
CHAR 15,3C7E7E24187E1824 
COLOR 6,6 

COLOR 13,6,11 

COLOR 1,9,11 

COLOR 2,2,11 

COLOR 5,11,11 

COLOR 6,3,11 

COLOR 7,3,11 

COLOR 8,3,11 

COLOR 9,3,11 

COLOR 1@6,3,11 

COLOR 11,3,11 

COLOR 12,3,11 

FOR Q=1 TO 32 

PLOT Q,24,198 

NEXT 

RETURN 

PRINT 

POKE 846,34 

CLS 

PRINT" "s 

POKE 846,66 

PRIN®P" END OF GAME"; 

POKE 846,98 

PRINT" " 

POKE 846,161 

IF R=l1 THEN PRINT " YOU HAVE LANDED 1 MAN."; 
IF R<>l THEN PRINT " YOU HAVE LANDED ";R;" MEN."; 
GOTO 3156 
RETURN 
CLS 
CHAR 2,80COEGFOF8FCFEFF 
CHAR 3,FF7F3F1FOF070301 
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CHAR 
CHAR 
CHAR 
CHAR 
COLOR 1,11,1 
COLOR 2,15,1 


4,FFFEFCF8FOEGCO8O 
6,G@103070FLF3F7FFF 
1,PRFPFFEPREFFEFEFE 
15,PFFFFPPFFPPFEFEP 


CHAR 14,18181818FFEFFFEFF 


COLOR @,2 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" " 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" " 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT 
SOUND 


14;3,18;3,21;3 


SOUND 
SOUND 
SOUND 
SOUND 
SOUND 


14;2 
13;0 


11;3,7;3,14;3 


11;3 


SOUND 9;2 

SOUND 7;@ 

SOUND 6;3,9;3,2;3 
SOUND 6;2 

SOUND 7;39 

SOUND 9;3,2;3,18;3 
SOUND 2;3 

SOUND 4;3,7;3,11;3 
SOUND 7;3 

SOUND 93;5,13;5,4;5 
SOUND 4; 

SOUND 2;5,6;5,9;5 

IF 0>3 THEN 9300 


9;3,13;3,16;3 


POKE 846,225 


PRINT"PRESS <CTRL> FOR DIFFICULT/"; 


POKE 846,258 
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3192 PRINT"<SHIFT> FOR EASY."; 
3193 G=JoOY(3) 

3194 IF G=@ THEN 3193 

3199 FOR M=272 TO 277 

3200 POKE 4110,-M 

3210 NEXT 

3220 CLS 

3230 RETURN 

9000 CHAR 65,00183C243C7E4242 
9010 CHAR 66,007844427C424478 
9020 CHAR 67,00183C 6060603C18 
9030 CHAR 68,9070784C4C4C7870 
9040 CHAR 69,007E7E4070407E7E 
9050 CHAR 70,007E7E4070404040 
9060 CHAR 71,00387C64404E6438 
9070 CHAR 72 ,004242427E7E4242 
9080 CHAR 73,007E7E1010107E7E 
96908 CHAR 74,007E7E1010197070 
91006 CHAR 75,00444C5870584C44 
9110 CHAR 76,0040404040407C7C 
9120 CHAR 77,@00C2C6EAEAD2D2C2 
9138 CHAR 78,00C &C E&C6EGDECECE 
9148 CHAR 79, 0038CEC ECE EC 638 
9150 CHAR 80,00FECECEFECOCOCD 
9168 CHAR 81,0038C4C4C4D4CC3C 
9178 CHAR 82,0QFEC 6C6FEFODOCE 
9180 CHAR 83,00FEFE8QFEO2FEFE 
9198 CHAR 84,00FEFE1010101010 
9200 CHAR 85,00CECECECECECEFE 
9210 CHAR 86,00C 66 & 3C3C18 
92208 CHAR 87,00C2C2C2C2DADA2 4 
9230 CHAR 88,00C 6C4281028C4CE 
9248 CHAR 89,@0C66C 6C18181818 
9259 CHAR 90,90FEFE@20C38FEFE 
9280 RETURN 

9300 POKE 846,225 

9305 PRINT"DO YOU WANT ANOTHER GAME?"; 
9310 IF PEEK(2@)=81 THEN RUN 
9320 IF PEEK(2@)=83 THEN END 
9338 GOTO9319, 
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JOCK THE CLOCK 


Help teach the youngsters in your family how to tell the time! 
This program will introduce you to the concept of C.A.I. 
(computer assisted instruction). You can use your Wizzard to 
make learning fun! 


10 REM* JOCK THE CLOCK BY J.M.WALLACE 
20 COLOR @,2 

30 GOSUB 9000 

40 GOSUB 8000 

5¢ LS= NRK KKKKKEKKKEKKKKKEKKKKKKK KKK KN 
55 PRINT 

60 PRINTLS 

76 PRINT"**JOCK THE TEACHING CLOCK**" 
75 PRINT LS 

8 PRINT 

85 PRINT 

90 PRINT" JOCK THE CLOCK LIKES" 

95 PRINT 

100 PRINT" TO BE HAPPY.HE CAN ONLY" 
185 PRINT 

110 PRINT"BE HAPPY IF YOU TELL HIM" 


115 PRINT 

120 PRINT"----- THE RIGHT TIME----- " 
125 PRINT 

13@ PRINT"JOCK WILL SHOW YOU A TIME" 
135 PRINT 

140 PRINT" AND YOU MUST TYPE IN" 

145 PRINT 

15@ PRINT"THE ANSWER & PRESS <RETURN>" 
155 PRINT 

168 PRINT 


165 FOR N=1 TO 580 

170 NEXT N 

175 GOSUB 9000 

358 CLS 

355 GOSUB 10806 

368 GOSUB 2086 

408 GOSUB 4000 

600 B=RND(9) 

610 IF B=l THEN GOSUB 61808 





615 IF B=2 THEN GOSUB 61598 
620 IF B=3 THEN GOSUB 62809 
625 IF B=4 THEN GOSUB 6259 
630 IF B=5 THEN GOSUB 6309 
635 IF B=6 THEN GOSUB 6356 
648 IF B=7 THEN GOSUB 64868 
645 IF B=8 THEN GOSUB 645@ 
650 IF B=9 THEN GOSUB 6500 
665 PRINT"WHAT'S MY TIME<? O'CLOCK>";.:°-4 


695 INPUT H 
700 %&IIF H=B THEN GOSUB 7000 
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701 IF H=B THEN GOTO35@ 
765 PRINT" NO,PLEASE TRY AGAIN "; 
735 INPUT I 

740 IF I=B THEN GOSUB 7906 
742 IF I=B THEN GOTO 356 
743 FOR Y=22 TO 23 

744. FOR X=2 TO 30 

745 PLOT X,Y,32 

746 NEXT X 

747 NEXT Y 

748 PRINT"NO,MY TIME IS "sB;"  o'cnocK" 
750 FOR N=l1 TO 200 

755 NEXT N 

778 GOTO 350 

1068 REM*CLOCK ROUND SIDES* 
1005 PLOT 18,6,96 

1010 PLOT 19,6,97 

1615 PLOT 20,7,98 

1920 PLOT 21,7,99 

1925 PLOT 21,8,100 

1030 PLOT 22,9,161 

1035 PLOT 22,180,102 

1049 PLOT 22,11,193 

1645 PLOT 22,12,104 

1958 PLOT 22,13,105 

1655 PLOT 21,14,196 

1068 PLOT 21,15,167 

1065 PLOT 20,15,198 

1066 PLOT 20,16,1 

1678 PLOT 19,16,199 

1875 PLOT 18,16,11@ 

1688 PLOT 15,16,111 

1085 PLOT 14,16,112 

1698 PLOT 13,16,113 

1995 PLOT 13,15,114 

1100 PLOT 12,15,115 

1105 PLOT 12,14,116 

1118 PLOT 11,13,117 

1115 PLOT 11,12,118 

1128 PLOT 11,11,119 

1125 PLOT 11,108,120 

1138 PLOT 11,9,121 

1135 PLOT 12,8,122 

1140 PLOT 12,7,123 

1145 PLOT 13,7,124 

1150 PLOT 14,6,125 

1155 PLOT 15,6,126 

1168 RETURN 

20008 REM*CLOCK NUMBERS* 
2605 PLOT 16,6,49 

2010 PLOT 17,6,50 

2015 PLOT 19,7,49 

2020 PLOT 21,9,50 
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PLOT 21,11,51 
PLOT 21,13,52 
PLOT 19,15,53 
PLOT 16,16,24 
PLOT 17,16,25 
PLOT 14,15,55 
PLOT 12,13,56 
PLOT 12,11,57 
PLOT 12,9,49 
PLOT 13,9,48 
PLOT 14,7,49 
PLOT 15,7,49 
RETURN 
REM*0O'CLOCK* 
PLOT 16,8,128 
PLOT 17,8,129 
PLOT 16,9,130 
PLOT 17,9,131 
PLOT 16,108,130 
PLOT 17,10,131 
PLOT 16,11,134 
PLOT 17,11,135 
RETURN 

REM*1l O'CLOCK* 
PLOT 17,11,136 
PLOT 17,180,137 
PLOT 18,180,138 
PLOT 17,9,139 
PLOT 18,9,140 
RETURN 

REM*2 O'CLOCK* 
PLOT 17,11,141 
PLOT 17,180,142 
PLOT 18,180,143 
PLOT 19,108,144 
PLOT 18,111,145 
RETURN 

REM*3 O'CLOCK* 
PLOT 17,11,146 
PLOT 18,11,146 
PLOT 19,11,148 
RETURN 

REM*4 O'CLOCK* 
PLOT 17,11,194 
PLOT 18,11,149 
PLOT 18,12,15@ 
PLOT 17,12,151 
PLOT 19,12,152 
RETURN 

REM*5 O'CLOCK* 
PLOT 17,11,153 
PLOT 17,12,154 
PLOT 17,13,155 
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6320 PLOT 18,13,156 

6325 PLOT 16,11,157 

6338 RETURN 

6350 REM*6 O'CLOCK* 

6355 PLOT 16,11,130 

6360 PLOT 17,11,131 

6365 PLOT 16,12,130 

6370 PLOT 17,12,131 

6375 PLOT 16,13,163 

6380 PLOT 17,13,164 

6385 RETURN 

6400 REM*7 O'CLOCK* 

6405 PLOT 15,13,165 

6410 PLOT 16,13,166 

6415 PLOT 15,12,167 

6420 PLOT 16,12,168 

6425 PLOT 16,11,169 

6430 RETURN 

6450 REM*8 O'CLOCK* 

6455 PLOT 14,12,179 

6460 PLOT 15,12,171 

6465 PLOT 15,11,172 

6470 PLOT 16,12,173 

6475 PLOT 16,11,174 

6480 RETURN 

6500 PLOT 14,11,175 

6505 PLOT 15,11,146 

6518 PLOT 16,11,177 

6515 RETURN 

7000 REM*CORRECT ANSWER* 

7002 IF H=B THEN Y=7 

7004 IF I=B THEN Y=6 

79i8 PLOT 19,Y+6,8 

7015 PLOT 18,Y+6,9 

7628 PLOT 18,Y+7,10 

7025 PLOT 17,Y+7,12 

70308 PLOT 16,Y+7,12 

7035 PLOT 15,Y+7,13 

7040 PLOT 15,Y+6,14 

7645 PLOT 14,Y+6,15 

7055 PLOT 13,Y,16 

7060 PLOT 14,Y,17 

7665 PLOT 19,Y,18 

7070 PLOT 20,Y,19 

7075 PRINT" RIGHT,YOU MAKE ME HAPPY !!" 
7076 FOR N=l TO2 
7877 SOUND 20;3,11; 
7078 SOUND 16;3,8;3 
7679 SOUND 18;3,9;3 
7088 SOUND 11;5,435 
7882 SOUND 16;3,8;3 
7084 SOUND 18;3,9;3 
7886 SOUND 20;3,1 
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SOUND 
NEXT 
PRINT 


PRINT"NOW COUNT THE TIME WITH ME" 


FOR N 


16;5,8;5 


=1 TO 1900 


NEXT N 


FOR S 
SOUND 
NEXT 
PRINT 
PRINT 


=] TOB 
19;5,23;6,26;7 
S 


PRINT"NOW HERE'S ANOTHER FACE 


FOR N 
NEXT 
RETUR 
REM*C 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


=l1 TO26 

N 

N 

HARACTERS* 
1,FFFFFFFFFFFFFFFF 
24,910307078C0C0603 
25, EGO0G9CBO6B2060CH 
96,00COFCFFFFFFFFFF 
97, 0800008G0EQOF8FEFF 
98,COEGOF8F8FEFEFFFF 
99 ,OBDGBBGOSGABBGG8O8OG 
108,COEOFOFOF8FCFCFE 
101,8000000808C80C0CB 
102 ,COEQ@EGEGEGEOFOFO 
103 ,FOFOFOFOFOFOFOF® 
104,FOFOFOEGEGEGEOCH 
185 ,COCGCOBB8O8BBB0O 
106,FEFEFCF8F8FOE0CO 
187 ,COVOGHGOBOSBBBBOO 
108,FFFFFFFCFCFOFOCO 
109,FFFEF8FO800900000 
110,FFFFFFFFFFFCFO@0 
111,FFFFFFFFFF/FOFOO 
112,FF/F3FOFO3000000 
113,0100000000000000 
114,FFFFFF/F3FOFOF@3 
115, 803008000000000000 
116, 7F3F3F1FOFOFOF@3 
117,93030101010000090 
118,0FO0F970707070703 
119,0FOFOFOFOFOFOFOF 
120,93070707070/70FOF 
121,09900000101030303 
122,03070F1F1IF3F3F7F 
123, 0008000000 000003 
124,03071F1F7FFFFFFF 
125,00000001071F7FFF 
126,00073FFFFFFFFFFF 
128 ,801030383938038303 
129 ,80CBCICBCBCWOCBCH 
130 ,03093030303030303 
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CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


131,C8CBCOCBCBCBCBCH 
134,8303030303000000 
135,C8CBCOCODBBBOGBO 
136,FOFGEGESCOODBOBD 
137,CFCFDFFEFEFCFCF8 
138 ,8080000000000000 
139 ,C8@CBCBC1IC1C3C3C7 
1486 ,G@BBBGOCOEGEBCOCD 
141,FFFFFEF8FOCO0A00 
142 ,C8CBCBOCBCBC1C3CF 
143,00030F1F7FFFFCF@ 
144, 8880COCO89BB0000 
145,CO8BGBGOGBB00000 
146,G0000FFFFFFFFOGOG 
148 ,@000EOFOFOEDOODD 


194,COCOCOEOF8FE7F3F 


149 ,G@BOBGGOGBGBB8GCB 
150,FOFCFF7F1FOF@300 
151,0F930100080000000 
+77, G@0G8S980COCO8ABG 
153 ,COCOCOCOEGEDFOFD 
154,F87C7C3E1LELFOFOF 
155,8078078030181000000 
156,80COEGEGEGCOBGDG 
157 ,8@3803830303810100 
163 ,08303030303030301 
164 ,COCBCOCBCBCBCH8B 
165,8180307897907030000 
166, EGCOCB8G8GG0000G 
167 ;G@8OSGBOBOEBGOGG1 
168, 1F1E3C7C78F8FOFO 
169 ,0303030307070FOF 
170,08000000107070301 
171,0F3FFFFEF8EG8COGG 
172, 08900000000000103 
173, FOCOBBOGODAOBOGO 
174,030303071F7FFEFC 
175, 0@80070FOFO70000 
177,0303FFFFFFFFO000 
8, ,GOGBED2000000000 
9,080003070E98COC18 
10, 103060E880000000 
11,0000000007FFFOQ0 
12,00000000EOFFOFOO 
13,@809C060701000000 
14,00980C0E070303018 
15, 8808070400000 000 
16,0738618383413807 
17,FOO8C4E2E2C20CFO 
18,0F1023474743300F 
19,E@1C86C1C1821CE@ 


RETURN 


CLS 
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COLOR 1,16,2 
FOR N=4 TO 8 
COLOR N,13,2 
NEXT 

FOR N=9 TO 12 
COLOR N,12,2 
NEXT 

FOR N=13 TO 16 
COLOR N,2,16 
NEXT 

COLOR 17,16,2 
FOR N=18 TO 27 
COLOR N,16,2 
NEXT 

COLOR 2,7,2 
COLOR 3,5 ,2 
RETURN 
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MATHS DICE 


Here is another C.A.I. program that will help make learning 
fun! You have to correctly add up the numbers that appear on 
the dice. An exellent introduction to counting and addition. 


1 REM*MATHS DICE* 
2 REM (BY J.M.WALLACE) 
3 REM 

4 COLOR @,2 
5 GOSUB 960@ 

7 GOSUB 8000 

16 PRINT TAB(6);"MATHS DICE" 
ll PRINT TAB(6) ;"*RRRR RRR RRM 
12 PRINT TAB(7); "eek RRR RRM 


13 PRINT 
14 PRINT 
30 PRINT 
40 PRINT"THIS PROGRAM GIVES PICTURES" 
41 PRINT 


42 PRINT"OF TWO DICE. WHEN TWO DICE" 
43 PRINT 
58 PRINT"AND AN EQUAL SIGN FOLLOWED " 


51 PRINT 

52 PRINT"BY A QUESTION MARK HAVE BEEN" 
53 PRINT 

60 PRINT"PRINTED, TYPE YOUR ANSWER" 

61 PRINT 

62 PRINT"AND PRESS <<RETURN>> KEY" 

63 PRINT 

64 PRINT 

65 PRINT 


70 FOR M=1l TO 1080 
71 NEXT M 

75 FOR M=l TO 100 
76 NEXT M 


80 CLS 

118 D=RND(6) 

1260 IF D=1 THEN GOSUB 1108 
13@ IF D=2 THEN GOSUB 1200 
149 IF D=3 THEN GOSUB 13600 
150 IF D=4 THEN GOSUB 1408 
160 IF D=5 THEN GOSUB 1508 
178 IF D=6 THEN GOSUB 1600 
18@ PLOT 13,11,16 

198 PRINT 


210 IF E=1 THEN GOSUB 2108 





220 IF E=2 THEN GOSUB 2200 
230 IF E=3 THEN GOSUB 2300 
240 IF E=4 THEN GOSUB 2400 
250 IF E=5 THEN GOSUB 2500 
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260 
5060 
510 
520 
5 3@ 
546 
541 
942 


IF E=6 THEN GOSUB 2609 
T=DtE 

PLOT 13,18,17 

INPUT X 

IF X=T THEN GOTO 59@ 
PRINT" NO, COUNT AGAIN" 
PLOT 26,23,19 

SOUND 29;6,23;6 
INPUT Y 

IF Y=T THEN 59@ 
PRINT"NO, THE ANSWER IS "eT 
PLOT 26,23,19 

SOUND 29;6,23;6 

FOR M=1l TO 1060 

NEXT M 

GOTO 600 

PRINT" RIGHT !!}" 
PLOT 18,23,18 

SOUND 23;7,26;7,31;7 
SOUND 7;7 

PRINT 

PRINT"THE DICE ROLL AGAIN.." 
GOTO 75 

REM* DICE ONE,ONE* 
GOSUB 4602 

GOSUB 400¥ 

GOSUB 4050 

GOSUB 4100 

GOSUB 4150 

RETURN 

REM* DICE ONE,TWO* 
GOSUB 4630 

GOSUB 4200 

GOSUB 4250 

GOSUB 4300 

GOSUB 4350 

RETURN 

REM*DICE ONE, THREE* 
GOSUB 4600 

GOSUB 4200 

GOSUB 4850 

GOSUB 4100 

GOSUB 4350 

RETURN 

REM* DICE ONE, FOUR* 
GOSUB 46090 

GOSUB 44090 

GOSUB 4250 

GOSUB 4300 

GOSUB 4459 

RETURN 

REM*DICE ONE,FIVE* 
GOSUB 4600 

GOSUB 4400 
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151@ 
1515 
1526 
1525 
1600 
1603 
1605 
1619 
1615 
1620 
1625 
2100 
2163 
2105 
2110 
2115 
2120 
2125 
2200 
2203 
2205 
2210 
2215 
2220 
2225 
2300 
2303 
2305 
2316 
2315 
2320 
2325 
2400 
2463 
2405 
2410 
2415 
2420 
2425 
2500 
2503 
2505 


2510 


2515 
2520 
2525 
2600 
26083 
2605 
2618 
2615 
2620 
2625 


GOSUB 4050 

GOSUB 4100 

GOSUB 4450 

RETURN 

REM*DICE ONE, SIX* 
GOSUB 46906 

GOSUB 4400 

GOSUB 4500 

GOSUB 4550 

GOSUB 4450 

RETURN 

REM*DICE TWO,ONE* 
GOSUB 56090 

GOSUB 5080 

GOSUB 595@ 

GOSUB 5100 

GOSUB 51586 

RETURN 

REM*DICE TWO,TWO* 
GOSUB 5600 

GOSUB 5200 

GOSUB 5250 

GOSUB 5300 

GOSUB 5350 

RETURN 

REM*DICE TWO,THREE* 
GOSUB 5600 

GOSUB 5200 

GOSUB 5050 

GOSUB 51090 

GOSUB 5350 

RETURN 

REM*DICE TWO,FOUR* 
GOSUB 5600 

GOSUB 540@ 

GOSUB 5250 

GOSUB 5300 

GOSUB 5450 

RETURN 

REM*DICE TWO,FIVE* 
GOSUB 5600 

GOSUB 5400 

GOSUB 5050 

GOSUB 5100 

GostB 5450 

RETURN 

REM*DICE TWO,SIX* 
GOSUB 5600 

GOSUB 5400 

GOSUB 5500 

GOSUB 5550 

GOSUB 5458 

RETURN 


70 


4000 
4005 
4010 
4012 
4015 
4050 
4055 
4060 
4065 
4068 
4070 
4100 
4105 
4110 
4115 
4118 
4120 
4150 
4155 
4160 
4162 
4165 
4200 
4205 
4210 
4215 
4218 
422¢ 
4250 
4255 
4260 
4262 
4265 
4300 
4305 
4310 
4312 
4315 
4350 
4355 
4360 
4365 
4368 
4370 
4460 
44905 
4410 
4415 
4418 
4426 
445@ 
4455 
4460 


FOR X=12 TO 15 
PLOT X,6,2 
NEXT X 

SOUND 14;@ 
RETURN 
PLOT12,7,2 
PLOT13,7,5_ 
PLOT 14,7,6 
PLOT 15,7,2 
SOUND 15;@ 
RETURN 

PLOT 12,8,2 
PLOT 13,8,9 
PLOT 14,8,10 
PLOT 15,8,2 
SOUND 16;@ 
RETURN 

FOR X=12 TO 15 
PLOT X,9,2 
NEXT X 

SOUND 17;9@ 
RETURN 

PLOT 12,6,1 
PLOT 13,6,2 
PLOT 14,6,2 
PLOT 15,6,2 
SOUND 18;@ 
RETURN 

FOR X=12 TO 15 
PLOT X,7,2 
NEXT X 

SOUND 19;@ 
RETURN 

FOR X=12 TO 15 
PLOT X,8,2 
NEXT X 

SOUND 20;0 
RETURN 

PLOT 12,9,2 
PLOT 13,9,2 
PLOT 14,9,2 
PLOT 15,9,13 


SOUND 21;@ 
RETURN 


PLOT 12,6,1 
PLOT 13,6,2 
PLOT 14,6,2 
PLOT 15,6,3 
SOUND 22;90 
RETURN 

PLOT 12,9,12 
PLOT 13,9,2 
PLOT 14,9,2 
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4465 PLOT 15,9,13 
4468 SOUND 23;90 
447@ RETURN 

4500 PLOT 12,7,4 
4505 PLOT 13,7,2 
4510 PLOT 14,7,2 
4515 PLOT 15,7,7 
4518 SOUND 24;9 
4520 RETURN 

4558 PLOT 12,8,8 
4555 PLOT 13,8,2 
4560 PLOT 14,8,2 
4565 PLOT 15,8,11 
4568 SOUND 25;@ 
4578 RETURN 

4600 REM*DICE ONE,SIDE* 
4605 PLOT 11,5,96 
4610 PLOT 12,5,97 
4615 PLOT 13,5,98 
4620 PLOT 14,5,99 
4625 PLOT 15,5,104 
4630 PLOT 11,6,180@ 
4635 PLOT 11,7,1@1 
4640 PLOT 11,8,102 
4645 PLOT 11,9,112 
4650 RETURN 

5000 FOR X=12 TO 15 
5005 PLOT X,13,2 
5010 NEXT X 

5012 SOUND 13;9 
50915 RETURN 

5050 PLOT 12,14,2 
5055 PLOT 13,14,5 
5060 PLOT 14,14,6 
5065 PLOT 15,14,2 
5068 SOUND 12;90 
5078 RETURN 

5100 PLOT 12,15,2 
51095 PLOT 13,15,9 
511@.PLOT 14,15,10 
5115 PLOT 15,15,2 
5118 SOUND 11;9 
5120 RETURN 

515@ FOR X=12 TO 15 
5155 PLOT X,16,2 
5160 NEXT X 

5162 SOUND 10;9 
5165 RETURN 

5208 PLOT 12,13,1 
5205 PLOT 13,13,2 
5218 PLOT 14,13,2 
5215 PLOT 15,13,2 
5218 SOUND 9;9 


RETURN 

FOR X=12 TO 15 
PLOT X,14,2 
NEXT X 

SOUND 8;@ 
RETURN 

FOR X=12 TO 15 
PLOT X,15,2 
NEXT X 

SOUND 7;@ 
RETURN 

PLOT 12,16,2 
PLOT 13,16,2 
PLOT 14,16,2 
PLOT 15,16,13 
SOUND 6;@ 
RETURN 

PLOT 12,13,1 
PLOT 13,13,2 
PLOT 14,13,2 
PLOT 15,13,3 
SOUND 5;0 
RETURN 
PLOT12,16,12 
PLOT 13,16,2 
PLOT 14,16,2 
PLOT 15,16,13 
SOUND 4;90 
RETURN 

PLOT 12,14,4 
PLOT 13,14,2 
PLOT 14,14,2 
PLOT 15,14,7 
SOUND 3;90 
RETURN 

PLOT 12,15,8 
PLOT 13,15,2 
PLOT 14,15,2 
PLOT 15,15,11 
SOUND 2;90 
RETURN 
REM*DICE TWO,SIDE* 
PLOT 11,12,96 
PLOT 12,12,97 
PLOT 13,12,98 
PLOT 14,12,99 
PLOT 15,12,104 
PLOT 11,13,100 
PLOT 11,14,101 
PLOT 11,15,102 
PLOT 11,16,112 
RETURN 

REM* ESTABLISH CHARACTERS * 
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158 
152 
159 
160 
163 
164 
165 
166 
167 
168 
170 
175 
18@ 
1990 
193 
195 
197 
200 
202 
204 
208 
210 
215 
217 
220 
230 
240 


519 
520 
530 
5490 
556 
560 
576 
589 
596 
600 
618 
900 
910 
926 
936 
940 
950 
960 
970 
980 
1800 
1061¢ 
1812 
1014 
1816 


FOR B=1 TO 10 
NEXT B 
PRINT 


PRINT "YOU FAILED-" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 50@ 


PRINT “THE ALIENS GOT YOU" 


PRINT 

END 

GOSUB 980 
PRINT LS 


PRINT "GOOD TAKE OFF" 


PRINT LS 
PRINT 
PRINT 
PRINT 
PRINT LS 


PRINT "GOOD TAKE OFF" 


PRINT LS 
PRINT 
PRINT 
PRINT 
END 

SOUND 
SOUND 


LW 


W 


v a tf a 
SOUND2;1,5;1,14;1 
SOUND2;3,5;3,14;3 
SOUND 2;1,4;1 
SOUND 2;7,5;7 
RETURN 

SOUND 26; 3 
SOUND 21;2 
SOUND 21;1 
SOUND 23;3 
SOUND21;3 
SOUND1;3 


SOUND 9;3,19;3,25;3 


SOUND2;3,18;3,26;3 
RETURN 

REM *SET COLORS* 
CLS 

FOR N=9 TO 12 
COLOR N,2,16 

NEXT 
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1@28 COLOR 6,7,1 
1@3@ COLOR 13,13,5 
1048 COLOR 15,7,5 
1865@ COLOR 17,13,11 
1@6@ COLOR 14,13,5 
1878 COLOR 16,13,8 
1688 RETURN 

1898 CLS 

1091 PLOT 24,108,100 
1092 PLOT 25,109,115 
1093 PLOT 26,180,101 
1094 PLOT 24,11,192 
1095 PLOT 25,11,129 
1096 PLOT 26,11,193 
10697 PLOT 24,12,104 
1698 PLOT 25,12,128 
1099 PLOT 26,12,105 
2008 PLOT 24,13,106 
2001 PLOT 25,13,121 
2002 PLOT 26,13,197 
2003 PLOT 24,14,1908 
2004 PLOT 25,14,120 
2005 PLOT 26,14,109 
2006 PLOT 24,15,112 
2007 PLOT 25,15,114 
2008 PLOT 26,15,113 
2609 COLOR 5,8,14 
2010 PLOT 18,3,35 
2028 PLOT 32,3,35 
203@ PLOT 18,22,35 
2046 PLOT 32,22,35 
2050 RETURN 

2108 COLOR 5,7,5 
2118 PLOT 19,4,35 
2120 PLOT 31,4,35 
2130 PLOT 19,21,35 
2148 PLOT 31,21,35 
2150 RETURN 

2200 PLOT 20,5,35 
2285 COLOR 5,11,5 
2218 PLOT 30,5,35 
2220 PLOT 20,20,35 
223@ PLOT 30,20,35 
22480 FOR J=1 TOS 
2241 SOUND 19;3,23;3 
2242 NEXT J 

2298 RETURN 

2318 PLOT 21,6,35 
2315 COLOR 5,5,11 
2320 PLOT 29,6,35 
233@ PLOT 21,19,35 
2348 PLOT 29,19,35 
2341 FOR J=1 TO 5 


8885 
88190 
8815 
8820 
8825 
8838 
8835 
8840 
8845 
8056 
8055 
8860 
8865 
8870 
8875 
8880 
8885 
8090 
8895 
8180 
8105 
8110 
8115 
8120 
8122 
8123 
8125 
9800 
9819 
9015 
9828 
9825 
9826 
9830 
9835 
9040 
9845 
9850 
9855 
9856 
9860 
9865 
9070 
9875 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


CHAR 
CHAR 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


1, Q0001E3F3F3F3F1E 
2, GG0BOG00000R000 

3 , 90007 8FCFCFCFC78 
4, 00000000001E3F3F 

5 ,G0080000000030787 

6 , GAGIGBBOBGCORGED 

7 ,@GGG0GG0G078FCFC 
8, 3F3F1LEGOGGG00000 
9,08707038000000000 
16, EOEGCOBGGRG0RR00 
11,FCFC780900009000 
12, LE3F3F3F3F1FQ000 
13, 78FCFCFCFC780000 
16,181818FFFF181818 
17,00FFFFOOOOFFFFOG 
96, GO8OCORGFOF8FCFE 
97, OBG0GG0BR00R0000 
98 , GBGGGB0GGR0R0000 
99, G890G00000000000 
104,FF7F3F1F0FQ@70301 
160,FFFFFFFFFFFFFFFF 
101,FFFFFFFFFFFFFFFF 
102, FFFFFFFFFFFFFFFF 
112, FF7F3F1FGF970301 
18,6666001881C32418 
19, 66660000003C6681 


RETURN 
REM* COLORS * 


CLS 

COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 
COLOR 


RETURN 
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STARSHIP LIFTOFF 


This is the last of the three C.A.I. programs. You have to 
calculate the force needed to lift a starship off the surface 
of a planet. A fun way to learn your multiplication tables! 


4 CLS 
6 REM*STARSHIP TAKE-OFF* 
8 REM*BY J.M.WALLACE (1-9-83)* 


12 COLOR @,16 

13 CHAR35, 7LELF7BCIC3F27F3 
14 GOSUB 1000 

15 GOSUB 3000 

16 LS=UNRRKKKKKKKKEKKKKKEN 

18 PRINT LS 

20 PRINT “STARSHIP TAKEOFF" 
22 PRINT LS 

24 PRINT LS 

26 PRINT 

28 PRINT 

29 PRINT 

30 LET G=RND (13) 

40 LET W=RND (40) 

50 LETR=G*W 

608 PRINT "GRAVITY= "3G 
70 PRINT"TYPE IN TAKE" 
71 PRINT" OFF FORCE " 
72 PRINT 

74 PRINT 

75 PRINT LS 

76 PRINT"HINT, TAKE OFF" 
77 PRINT"FORCE IS A " 
78 PRINT"MULTIPLE OF " 
79 PRINT" GRAVITY " 
80 PRINT 

81 PRINT"NOTE! GRAVITY" 
82 PRINTLS 

85 FOR C= 1 TO 8 

88 INPUT F 

90 IF F=R THEN GOTO 190 
91 IF C=l THEN GOSUB 10990 
92 IF C>l THEN GOSUB 1998 
93 IF C>1.5 THEN GOSUB 2100 
94 IF C>2 THEN GOSUB 2200 
95 IF C>3 THEN GOSUB 23190 
96 IF C>4 THEN GOSUB 24190 
97 IF ©>5 THEN GOSUB 2516 


98 IF C>6 THEN GOSUB 2619 
99 IF C>7 THEN GOSUB 27190 


100 IF FOR THEN PRINT" LOWER"; 

110 IF F<R THEN PRINT"HIGHER"; 

130 IF C<>8 THEN PRINT" TRY AGAIN" 
140 NEXT C 





77 


2342 SOUND 21;2,25;2 
2343 NEXT J 

2344 COLOR 19,11,2 
2346 COLOR 20,11,2 
2348 COLOR 21,11,2 
2358 N=143 

2352 FOR Y=5 TO 6 
2354 FOR X=5 TO 13 
2356 N=N+l 

2358 PLOT X,Y,N 
2360 NEXT X 

2362 NEXT Y 

2390 RETURN 

2418 PLOT 22,7,35 
2415 COLOR 5,7,1ll 
2420 PLOT 28,7,35, 
2430 PLOT 22,18,35 
2448 PLOT 28,18,35 
2441 FOR J=l TO 5 
2442 SOUND 23;2,26;2 
2443 NEXT J 

2490 RETURN 

2518 PLOT 23,8,35 
2515 COLOR 5,7,13 
2520 PLOT 27,8,35 
2538 PLOT 23,17,35 
2549 PLOT 27,17,35 
2558 FOR J=l TO 10 
2552 COLOR 19,1,2 
2554 COLOR 20,1,2 
2556 COLOR 21,1,2 
2558 SOUND 25;1,28;1 
2568 COLOR 19,7,2 
2562 COLOR 20,7,2 
2564 COLOR 21,7,2 
2566 NEXT J 

2590 RETURN 

2618 PLOT 24,9,35 
2615 COLOR 5,2,13 
2628 PLOT 26,9,35 
2630 PLOT 24,16,35 
2640 PLOT 26,16,35 
2650 FOR H=l TO 10 
2652 COLOR 19,1,2 
2654 COLOR 21,1,2 
2656 COLOR 26,1,2 
2668 SOUND 26;1,31;1l 
2670 SOUND 27;1,29;1 
2672 COLOR 19,7,2 
2674 COLOR 21,7,2 
2676 COLOR 20,7,2 
2680 NEXT H 

2698 RETURN 


2710 
2715 
27206 
2730 
2731 
2732 
2733 
2734 
2735 
2740 
2741 
2750 
2751 
2760 
2762 
2764 
2766 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2790 
3000 
3010 
3828 
3030 
3840 
3050 
3060 
3070 
3080 
309 
3180 
3110 
3120 
3130 
3148 
3150 
316@ 
3170 
3186 
319@ 
3200 
3210 
3220 
3230 
3240 
3250 
3260 


PLOT 


25,10,35 


COLOR 5,7,2 


PLOT 


25,15,35 


FOR K=1 TO 5 


NEXT 


K 


FOR H=1 TO 5 
SOUND 26;8,31;94 
SOUND 27;0,29;90 


NEXT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 
PLOT 


H 

25,14,35 
25,11,35 
25,13,35 
25,12,35 
24,13,35 
24,12,35 
26,13,35 
26,12,35 


FOR H=l TOS 
SOUND 26;0,31;90 
SOUND 27;0,29;90 


NEXT 
PLOT 
PLOT 
PLOT 
PLOT 


H 

24,14,35 
26,11,35 
24,11,35 
26,14,35 


RETURN 
REM* ESTABLISH CHARACTERS * 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


100,0000000000010183 
115,3C7E7EFFFFFFFFFE 
101,99000000008080C0 
102,03070FOF1FIF3F3F 
129,FFFF18181818FFFF 
103,COEGFOFOF8F8FCFC 
104,6666E6FFEF8FOFOF 
128 ,666666FFFFFFFFFF 
105,666667FFF7F1FOFG 
106,0FOFIFIFIF3F3F3F 
121,FFFFFFFFFFFFOGO@ 
107,F@FOF8F8F8FCFCFC 
108, 7F7FFFFF7F3F1F0EF 
120, FFEFFFC3C3C3C3C3 
109, FEFEFFFFFEFCE8F@ 
112, 0FOFOFOFOFOFGFOF 
114,FFFFFF3C3C3C3C3C 
113,FOFOFGFOFOFOFOFG 
144,0000007F7F616161 
145 ,0000068183878686 
146,000000F8F8181818 
147,800000617171797D 
148 ,0000000387868686 
149, @G00OOFOF8000000 
150, 0000007F7F606060 
151,0000008707060606 
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32790 
3280 
3298 
3300 
3318 
3326 
3330 
3340 
3350 
3360 
3376 


CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 
CHAR 


152, 000000F0F8181818 
153,616161637F7EG000 
154,87878686906060000 
155,F8F8181818180000 
156,6D676763636190000 
157,8686868687830009 
158,78781818F8E000808 
159, 7F7F60607F7FOGOG 
168,07078686868060000 
161,F0F0181818180000 


RETURN 
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What day were you born on? This useful program can tell you 
what day of the week any date falls apon. 


125 


150 
155 
1698 
162 
165 
166 
167 
168 


REM WHICH DAY IS THAT ? 
REM BY RUSS HAYES 

CLS 

FORI=1T013 

COLORI,5,16 

NEXT 

COLORG,16 

PRINT" THIS PROGRAM FINDS " 
PRINT 

PRINT" THE DAY OF THE WEEK" 
GOSUB115@ 

GOSUB1200 

GOSUB1100 

GOSUB1#OOB 

DATAG ,0,0,09,0,0,0,0,28 
READX,Y,Z,B,C,D,E,F,A(2) 

PRINT" INPUT THE NUMERICAL DATE" 
PRINT 

PRINT" IN THE FORM -" 

PRINT 

PRINT" DAY MONTH YEAR" 

PRINT 

PRINT" E.G, 27" 

PRINT" 11" 

PRINT" 1987" 
PRINT 

INPUTX 

PRINT 

LEX >OANDX<32ANDX=INT (X) THEN130 
GOSUB115@ 

PRINT" THIS DATE CAN'T HAPPEN !" 
PRINT 

PRINT" TRY AGAIN !" ——=. 
GOSUB118@ 

GOTO6G 

PRINT 

PRINTTAB(1@); 

INPUTY 

PRINT 


IFY>@ANDY<13ANDY=INT (Y) THEN19 


P INT 
PRINT 
PRINT 
PRINT" 


FORI=1T0O12 
PRINTTAB(15);1 


NEXT 






MONTHS GO" 
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170 
172 
175 


185 
198 
195 
200 
265 
206 
216 
215 
226 
223 
225 
227 
230 
232 
235 
236 
237 
240 
245 
247 
248 
256 
252 
255 
260 
265 
2790 
275 


GOSUB110@ 
GOSUB110@ 
GOSUB166¢0 


PRINT" TRY THE MONTH AGAIN" 


GOSUB115@ 

GOTO13@ 

PRINT 

PRINT 
IFX<=A (Y) ORX=29THEN24G 
IFX=29THEN24@ 
GOSUB115@ 


PRINT" WHO'S A PRETTY BOY ?" 


GOSUB115@ 


PRINT" THIS MONTH DOESN'T HAVE" 


PRINT 

PRINT" "sX;" DAYS !" 
GOSUB1159@ 

GOSUB1160 

PRINT" TRY AGAIN" 
GOSUB11090 

GOTO6@ 

PRINTTAB (20) ; 

INPUTZ 

IF Z=9THEN1290 
IFZ>160700THEN60 
IFX<>29THEN 300 
IFY<>2THEN300 

V=Z/4 
IFV=INT (V) THEN 30@4 
PRINT 

PRINT 

PRINT" GUESS AGAIN !" 
GOSUB115@ 

PRINT" "275" 
GOSUB115@ 
PRINT"START AGAIN !" 
GOSUB115@ 

GOSUB116@ 

GOTO6G9 
B=INT((Z-1)/4) 
C=365* (2-1) +B 
B=INT(B) 


“IFZ/4=INT (Z/4) THENA (2) =29 


IFY=1THEN3 40 
FORI=l1TOY-1 

E=E+A (I) 

NEXT 

C=C+E+X 

C=C/7 

F=INT(C) 

D=INT ((C-F) *7+@.5) 
GOSUB1300+2*D 
GOSUB1348+2*Y 


82 


EAR" 


375 GOSUB1OGG 

380 PRINTTAB(5);BS;" "sX3","3Z 
385 GOSUB115@ 
398 PRINTTAB(7);"IS A" 
395 GOSUB115@ 

400 PRINTTAB(8);AS 
485 GOSUB115@ 

410 INPUTMS 

414 POKE1195,@ 
416 POKE1197,@ 
4280 GOTO6@ 

10080 FORI=1T023 
1605 PRINT 

1010 NEXT 

1815 RETURN 

1100 FORI=17T0125 
1105 NEXT 

1110 RETURN 

1158 FORI=1T05 
1155 PRINT 

1160 NEXT 

1165 RETURN 

1208 DIMA(12) 

1285 DATA31,28,31,30,31,30,31,31,30,31,30,31 
1218 FORI=1T012 
1215 READA(I) 

1220 NEXT 

1225 RETURN 

1300 AS="SATURDAY" 
1301 RETURN 

1302 AS="SUNDAY" 
1303 RETURN 

1304 AS="MONDAY" 
1305 RETURN 

1386 AS="TUESDAY" 
1307 RETURN 

1308 AS="WEDNESDAY" 
1309 RETURN 

1310 AS="THURSDAY" 
1311 RETURN 

1312 AS="FRIDAY" 
1313 RETURN 

1358 BS="JANUARY" 
1351 RETURN 

1352 BS="FEBRUARY" 
1353 RETURN 

1354 BS="MARCH" 
1355 RETURN 

1356 BS="APRIL" 
1357 RETURN 

1358 BS="MAY" 

1359 RETURN 

1368 BS="JUNE" 
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1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1376 
1371 
1372 
1373 


RETURN 
BS="JULY" 
RETURN 
BS="AUGUST" 
RETURN 
BS="SEPTEMBER" 
RETURN 
BS="OCTOBER" 
RETURN 
BS="NOVEMBER" 
RETURN 
BS="DECEMBER" 
RETURN 
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Peeks & Pokes 


WIZZARD MEMORY MAP LOCATIONS. 


By PEEKing and POKing around your wizzard memory locations, 
some interesting, amazing and very useful things can be found, 
here are some examples and applications: 


PEEK(3) - RND GENERATOR. 


Each time PEEK(3) is addressed it provides a random number from 
@ to 255. Whenever RND(A) is run, PEEK(3) is automatically 
accessed ani RND(A) calculated from the PEEK(3) value. 
Generally ‘or A(50@0,RND(A)=INT(A/256* (PEEK (3)+1) ) 


(PROGRAM 1) 
5 REM PEEK(3)RND GENERATOR DEMO 
10 CLS 
20 X=256 


30 DATAPEEK (3) , RND(X) 
40 READA,B 

5d C=X/256 

60 D=INT(C) 

65 Z=C* (A+1) 

7@ IF C<>D THEN Z=2Z+1 
75 Z=INT ( Z) 

80 PRINTA; TAB(19) ; 2; TAB(16) 3B 
84 POKE1195,@0 

86 POKE1197,@ 

90 GOTO 20 


PEEK(17) AND PEEK(19) - JOYSTICK POSITIONS. 


The values present in PEEK(17) and PEEK(19) indicate each of 
the 16 left and right hand joystick positions. The zero 
joystick position has a value of @, whereas positions 1 thru 16 
show values 64 thru 79, when PEEKED. 


The joy function will access 8 joystick positions, consequently 
these PEEK locations can be used to increase maneuvorability in 
games programs. The following program shows how this can be 
achieved. 


(PROGRAM 2) 
g REM PEEK(17) JOYSTICK DEMO 
1 R=12 
2 C=16 
5 CLS 


1@ A=PEEK (17) -63 
12 IF A=-63 THEN A=3 
14 IF A>16 THEN 19 
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GOTO A*10+20 


CLS 


IF C<lORC>32 THEN 1 

IF R<1ORR>24 THEN 1 
PLOTC,R,94 

POKE2 19,207 

PRINT TAB(45);"POSITION 
PRINT" PEEK (17) =";A+63 


GOTO 190 
R=R+1 
GOTO 280 
R=R+1.5 
C=C+l 
GOTO 20 
R=R+1 
C=C+1 
GOTO 20 
C=C+1.5 
R=R+1 
GOTO 20 
C=C+1 
GOTO 290 
C=C+1.5 
R=R-1 
GOTO 290 
C=C+l1l 
R=R-1 
GOTO 20 
C=C+1l 
R=R-1.5 
GOTO 20 
R=R-1 
GOTO 206 
R=R-1.5 
C=C-1 
GOTO 20 
C=C-1 
R=R-1 
GOTO 20 
C=C-1.5 
R=R-1 
GOTO 20 
C=C-1 
GOTO 20 


C=C-1 
GOTO 20 


"eA;" 
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5 REM PEEK(18) /PEEK(2@0) KEYBOARD DEMO 
1@ CLS 


20 POKE2 19,297 

30 PRINT TAB(63) 

4d PRINT"L.H.S","R.H.S" 

45 PRINT TAB(63) 

58 PRINT" PEEK (18) ","PEEK(2@) " 
60 PRINT TAB (63) 

78 PRINT 

80 PRINT TAB(63) 

90 PRINT"PRESS ANY KEY" 

100 POKE219,207 

110 FORI=1TO10 

12@ PRINT 

130 NEXT 

140 PRINTPEEK(18) ,PEEK(20);" “™ 
145 POKE218,34 

15@ POKE219,2069 

168 GOTO 148 


PEEK(18) AND PEEK(2@) - INKEY FUNCTION. 


The values present in PEEK(18) and PEEK(2@) indicate the key 
which is being pressed on the left and right hand side of the 
keyboard. Programs 3 & 4 show which values are assigned to 
each key on either side and this can provide some very useful 
applications similar to an 'INKEY FUNCTION', as shown in 
programs 5 & 6. Either of these PEEK locations can be used to 
replace an 'INPUT' statement when you wish the program to halt 
and/or be redirected. 


(PROGRAMS 3,4,5,6) 


4) REM PEEK(18)L.H.KEYBOARD DEMO 
5 CLS 
8 PRINT"PRESS A LEFTHAND KEY" 


10 INPUTAS 

15 PRINT"PRESS SAME KEY AND --> KEY" 
26 IF JOY (4) >@THEN4G 

30 GOTO 2@ 

40 PRINTAS ;"="; PEEK (18) 


45 PRINT 

56 GOTO8 

s) RSM PEEK(18) /PEEK(28) INKEY DEMO 
18 CLS 

29 POKE2 19,297 

30 PRINT 


40 PRINT"PRESS A TO STOP" 

50 PRINT TAB(11);"OR" 

66 PRINT" C TO CONTINUE" 
76 IFPEEK (18) =65THEN1OO 

80 IFPEEK (18) =72THEN3@ 

9@ GOTO1G6 


87 


106 CLS 

118 PRINT"DO YOU WISH TO START" 
120 PRINT"IF SO PREES L" 

130 IFPEEK(2@) =70THEN1Y 

148 GOTO136 


1 REM PEEK(2@) L.H.KEYBOARD DEMO 

5 C=16 

1d PLOTC,12,95 

20 IFPEEK (20) =78THENC=C-1 

36 IFPEEK (20) =7@6THENC=C+1 

49 IFC<30RC> 38THENC=16 

58 CLS 

55 PRINT"J TO GO RIGHT,L TO GO LEFT" 
60 GOTO1@ 


PEEK(21) / PEEK(22) / PEEK(23) - FIRE BUTTONS. 


PEEK(22) carries values indicating which fire button is being 
pressed on the left hand joystick and PEEK(23) the same for the 
right hand joystick. 


The left hand fire button gives the value 17, the right hand 34 


and both pressed gives 51. PEEK(23) gives values which 


differentiate between the joysticks as well as each fire 
button. 


L.H. Joystick - L.H. Button gives 34 
- R.H. Button gives 17 
R.H. Joystick - L.H. Button gives 136 
- R.H. Button gives 68 
Program 7 shows these values. One of the possible applications 


may be to signify rapid fire with both buttons down (or to 
handicap your mates joystick via PEEK(23). 


(PROGRAM 7) 


l REM PEEK(21)/PEEK(22) /PEEK(23) FIRE BUTTON DEMO 
3 CLS 

5 PRINT TAB(5);"PRESS ANY FIRE BUTTON" 

7 POKE2 19,209 

18 PRINTPEEK (21) ,PEEK(22) ,PEEK(23);" " 

20 GOTO? 


PEEK(25) AND PEEK(27) - INKEY FUNCTION. 


Similar to PEEK(18) and PEEK(20), PEEK(25) and PEEK(27) 
indicate the key which is being pressed on the left and right 
hand side of the keyboard, but - the values are different, the 
shift key carries a value of 128 which when added to the normal 
value of a dual key gives the 2nd value, e.g. A(17) + S(33) = 
Sum-1(49). 
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These locations can provide an additional inkey function as 
shown in programs 9 & 10; program 8 indicates the value when 
one or more keys are pressed. A rather equisite game might be 
made by guessing the correct combination of keys to press. 


(PROGRAM 8,9,1@) 


1 REM PEEK(25)L.H.KEYBOARD DEMO 
5 CLS 
8 PRINT"PRESS A LEFT HAND KEY" 


10 INPUTAS 

L5 PRINT"PRESS SAME KEY AND --> KEY" 
20 IFJOY (4) >@THEN35 

30 GOTO2G 

35 PRINT 

40 PRINTAS ;"="s PEEK (25) 


45 PRINT 

56 GOTO8B 

5 REM PEEK (25) L.H.KEYBOARD DEMO 
1@ CLS 

12 POKE2 19,207 

15 PRINT 


20 PRINT"PRESS A TO ABORT" 

30 PRINT TAB(11);"OR" 

40 PRINT" C TO CONTINUE" 
56 IFPEEK (25) =17THENEND 

66 IFPEEK (25) =34THEN1O 

70 GOTO5@ 


Y) REM PE&K(27)R.H.KEYBOARD DEMO 
5 C=16 
8 PRINT"J TO GO RIGHT L TO GO LEFT" 


1@ PLOTC,12,93 

15 PLOTC-1,12,91 

26 IFPEEK (27) =36THENC=C-1 
39 IFPEEK (27) =L2THENC=C+1 
40 IFC<30RC> 30THENC=16 


56 CLS 
60 GOTO8 
PEEK(28) - KEYSTROKE INDICATOR. 


This location carries the value @ when no key has been pressed, 
3 when a key has been pressed and 2 when it is being pressed. 
The value 3 will remain unless it is poked back to @. This can 
be used as a simple inkey function, however use of value 2 
(while being pressed) can provide a repeat function such as 


continuous fire in a games program. Program 11 shows these 
features. 


(PROGRAM 11) 
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5 REM PEEK(28) KEYSTROKE INDICATOR 
10 CLS 


20 POKE2 8 ,@ 

30 PRINT"PRESS ANY KEY TO END" 

49 IFPEEK (28) =O@THEN3@ 

45 PRINT 

50 PRINT"PRESS ANY KEY TO START" 

55 POKE2 8 ,@ 

66 IFPEEK (28) =3THENRUN 

65 IFPEEK (28) =2THENPRINTTAB(42);"REPEAT FUNCTION" 
7@ GOTO6G 


PEEK(29) - KEYBOARD. 


Whenever a key is pressed, PEEK(29) registers a value of l - 
when a 2nd key is also pressed on the other side of the 
keyboard, the value is 2. Program 12 shows how this works. 


See if you can find an interesting application. 
(PROGRAM 12) 


5 REM PEEK(29) KEYBOARD DEMO 
19 CLS 


15 PRINT"PRESS ONE OR MORE KEYS" 
20 IFPEEK (29) =1THENPRINT" YOU PRESSED A KEY" 


30 IFPEEK (29) =2THENPRINT"AND ANOTHER ON THE OTHER SIDE" 
40 GOTO2G 


PEEK(3@) - KEYBOARD SIDE. 


PEEK (38) can differentiate between which side of the keyboard a 
key has been pressed. It provides a value of 1 for a left hand 


key, 3 for the right and 2,4, or 5 for far right hand keys as 
shown in program 13. 


(PROGRAM 13) 


5 REM PERK(3@) KEYBOARD DEMO 

10 CLS 

15 PRINT"PRESS A KEY" 

20 POKE3@,@ 

30 A=PEEK (38) 

40 IFA=1LTHENPRINT"LEFT SIDE" 

58 IFA=3THENPRINTTAB(17);"RIGHT SIDE" 

55 IFA> LANDA<> 3 THENPRINTTAB (9) ;"PEEK(3@) =";A 
6G GOTO2G 


POKE 218 AND POKE 219 - PRINT AT FUNCTION. 


The wizzard screen is broken up into 3 segments each containing 
256 positions. Cursor position within each segment is defined 
by POKE 218, X where X is the tab spacing @ to 255, as shown 
below: 
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cc 
t4 
Zz 
es] 


START TO END 


1 Y) 31 
2 32 63 
3 64 95 
4 96 127 
5 128 159 
6 160 191 
7 192 223 
8 224 255 


POKE 219, 210 defines the bottom of screen segment (lines 17 to 
24), POKE 219, 209 the midscreen segment (lines 9 to 16) and 
POKE 219, 208 the top of screen segment (lines 1 to 8). This 
is shown in programs 14, 15, and 16. 


This has considerable advantages and applications as it confers 
upon the wizzard the equivalent of a 'PRINT AT' statement. By 
poking the cursor to the desired position with POKE 218 and 
POKE 219, then following it with a print statement, screen text 
Or graphics can be directly positioned on the screen wherever 
you wish, without disturbing surrounding screen set up. 


the normal cursor position is equivalent to POKE 218, 226 (3rd 
position, line 8) and POKE 219, 218 (bottom segment). CLS will 
bring the cursor back to normal position, however the above two 
poke values will also, but with the screen display intact. 
These features are shown in program 17. 


When POKE 218 is used (with or without POKE 219), listings etc. 
are restricted to that 8 line segment and superimposes on 
previous screen display. This is shown in program 18. 


Program 19 shows a simplified graphics technique coupled with 
POKE 218. In line 68, open quotes and while holding CTRL key 

down type ababab to a total of 23, then close quotes. A,B,C,D 
etc. In this manner directly accesses char 1,2,3,4 etc. NOTE: 
A,B will not be visible. 


(PROGRAMS 14,15,16,17,18,19) 


5 REM POKE218 SCREEN POSITION DEMO 
LO FORI=@0T0255 


20 POKE2 18,I 
30 PRINTI 


40 CLS 

5@ NEXT 

5 REM POKE218 SCREEN POSITION DEMO 
1@ CLS 


L5 POKE2 19,208 

20 CHARI ,@000040E3F7FFFFF 
40 FORI=191TOL6O0STEP-1 

5@ POKE2 18,1 

60 PRINTCHRS (1) 

70 NEXT 
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5 REM POKE 219 SCREEN POSITION DEMO 
10 CLS 

20 FORI=207 TO 2190 

30 POKE2 19,1 

4G PRINTTAB(19);"HI THERE" 

5G NEXT 


5 CLS 

10 DATA2@68 ,73,"THIS",208,210,"1S",209,172,"MIGHTY" 
20 DATA 210,88,"GOOD",210,215,"STUFF." 

30 FORI=1T05 

40 READA,B,LS 

5¢ POKE219,A 

60 POKE218,B 

70 PRINTLS 


89 NEXT 
85 SOUND31;5 
87 CLS 


9¢ POKE2 19,268 

1800 POKE218,@ 

116 PRINTTAB(5) ;"SUPERCALAFRAGELISTIC" 
12@ POKE218,224 ° 

138 PRINTTAB(13);"EXPIALIDOTOIUS" 

146 POKE219,216 

1506 POKE218,226 

168 RESTORE 

165 CLS 

176 GOTO3¢6 


PROGRAM 18 

5 REM POKE218 SCREEN DEMO 
20 POKE2 18,225 

38 PRINT"TEXT WINDOW" 

40 GOTO30 


PROGRAM 19 


5 REM POKE 218 AND GRAPHICS DEMO 
1d CHAR 1,0000040E3F7FFFFF 

26 CHAR 2,00002078F8FCFFFF 

30 CLS 

40 FORI=227P0255 

5@ POKE2 18,1 

60 PRINT" ABABABABABABABABABABABA" 
79 NEXT 


Type while Control 1S 
Down - - 


MORE ON POKE 219. 


Top of screen cursor can be obtained by POKE 219, 207 followed 
by 'PRINT'; the same as POKE 219, 208 and POKE 218, @. 
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Poke 219 values 198 to 206 puts the cursor above the screen 
allowing invisible inputs without affecting screen set up. 211 
does this also. Values of 197 and below result in some very 
strange displays - be prepared to lose your program; CLS and / 
or POKE 219, 218 may in some cases bring things back to normal. 


POKE 1195 AND POKE 1197 - DATA EXPANSION. 


The maximum amount of data which can be held in data lines in 
any one program is a total of 255 digits, commas and data 
lines. e.g. data 1,2,3,4,5,6,7,8,9,18 corresponds to a total 
of 21. 


Location 1195 is the data register - whenever a program passes 
data lines, PEEK(1195) 1s increased in value as per the above 
scheme. If the value 255 is exceeded then error 19 occurs. 
location 1197 is the data pointer - Whenever data is read, 
PEEK(1197) is increased in value in the same manner as above. 


If POKE 1195, @ and POKE 1197, @ are applied after the data has 
been used (or allocated to dim arrays), then firstly the 
previous data iS no longer reistered (and no longer exists) and 
secondly the data pointer is reset to @ for oncoming data. 

POKE 1197,80 is the equivalent of 'RESTORE'. 


This has considerable advantages as it allows unlimited amounts 
of data to be utilized in any one program or continuous 
recycling of program portions with data. By applying a 
non-zero value to POKE 1197 along, the data pointer can be 
reset to any point within the data allowing patial retrieval of 
the data. If the value chosen places the pointer on a comma, 
then @ will be read prior to the next element. Program 20 
snows how this works. 


PROGRAM 2@ 


Ll REM POKE1L195/1197 DATA EXPANSION DEEMO 
5 CLS 


1@ DATA 1,2,3,4,5,6,7,8,9,19,11,12,13,14,15,16,17,18,19 
L5 GOSUB50@ 

20 DATA 29,21,22,23,24,25,26,27,28,29,30,31,32, 33, 34,35 
25 GOSUB589 

38 DATA 36,37,38,39,40,41,42,43,44,45,46,47,48,49,509,51 
35 GOSUB58@ 

49 DATA 52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67 
45 GOSUB50@ 

58 DATA68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83 
55 GOSUB58@ 

60 DATA 84,85,86,87,88 

65 GOSUB5@@ 

68 PRINTTAB(33) ;"ALL DATA REGISTERED" 

70 PRINTTAB(4@);"PRESS ANY KEY" 

75 IFPEEK (28) >@THEN85 

80 GOTO75 

85 POKE2 8,@ 

9@ FORI=1T088 

95 READA 

188 GOSUB516 
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105 NEXT 

118 PRINTTAB(33) ;"ALL DATA READ" 

112 PRINT"PRESS ANY KEY" 

113 IF PEEK(28) >@8THEN115 

114 GOoTO113 

115 POKE28,@ 

117 POKE1197,2@61 

128 FORI=71T083 

125 READA 

127 PRINTA 

138 GOSUB519 

135 NEXT 

148 PRINTTAB(33);"PARTIAL DATA READ AGAIN" 
145 PRINTTAB(33);"PRESS ANY KEY" 

15@ IFPEEK(28) >@THEN1L6@ 

155 GOTO15@ 

1680 POKE28,9@ 

165 POKE1195,@ 

176 POKE1197,9@ 

175 DATA"THIS IS FRESH DATA ACHEIVED" 
188 DATA"BY POKING 1195 AND 1197 BACK" 
185 DATA" TO ZERO" 

198 DATA"PRESS ANY KEY TO CONTINUOUSLY" 
195 DATA"RECYCLE THRU DATA LINES" 

197 PRINT 

200 FORI=1T05 

205 READ LS 

218 PRINTLS 

215 PRINT 

220 NEXT 

230 IFPEEK (28) >O@THEN24@ 

235 GOT0230 

240 POKE28,@ 

245 POKE1195,@ 

258 POKE1197,@ 

255 PRINTTAB(33) ;"RECYCLE COMING UP" 
260 PRINT 

265 GOTO1D 

500 PRINT"PEEK (1195=";PEEK (1195) 

510 PRINTTAB(14) ;"PEEK (1197) =";PEEK (1197) 
52@ RETURN 


POKE 48098 - GAME SOUNDS. 


POKING 4098 to 819@ accesses the sound generator. This is how 
POKE 4898 works. As the value POKED into 4098 increases 1 thru 
255, the volume of the sound decreases. The pitch of POKE 4098 
sound is dependant on the pitch of the 'SOUND' statement last 
used in the program and POKE 4898 sound will be sustained until 
another sound statement is presented or it is cancelled by POKE 
4098, 255. 


With the use of for/next loops sequencing up or down, inbuild 
pauses and varying 'SOUND' statements, game tunes / sounds of a 
limitless variety can be devised. Programs 21 and 22 are 
examples - the mouse puzzle stamp and a bird warble. 


94 


(PROGRAM 21 & 22) 


2 REM POKE48098 GAME SOUNDA ~ 
5 SOUND 31;9 


L@ FORI=235T0255 
20 POKE4098,1I 

40 NEXT 

58 GOTO 19@ 


3 A=30 

1@ SOUNDA; 4% 

20 FORI=297TO1LIY8STEP-1 
30 POKE49098,I 

48 POKE4098,1+190 

DO POKE4998,I1+2@ 

710 NEXT 

75 A=RND (31) 

88 GOTO1G 





»/ 
PEEK (12289) . F ol 


SEE IF YOU CAN WORK THIS ONE OUT: 
1@ PRINTPEEK (12289) 
20 POKE 219,193 


RUN, then type something (RETN), type CLS (RETN), press reset 
then type new (RETN), then type PRINTPEEK(12289) (RETN). 


YOUR PREVIOUS TEXT IS STILL THERE! 


LP 





Kole) @eimini=x> 
Taker c=xe le) (= 
ola at= ee 





on cartridge for i 1° ie 


Free! a free Sonic Invaders cartridge BASIC Y-1605 The Wizzard is a computer 
supplied with every Wizzard! Now with as well. Just plug in the computer cartridgé 
FeYololstommi-t-heula-t-Wmm ale] a-mm-> coun el ale mm Comm ol l= hy and you're ready to start programming 


ms 7od  Ommr-lalelUr-lol-m 
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ad t-1a\:) Qe ©1220-1010 (-] aa Qt oto] OU) al of -VIT-1V7-1 0) (= Police Jump Y-1622 Rescue the damsel Tank Attack Y-1610 You're a tank command: 
realism, incredible action. Only the best from Dirty Dan. You must climb up to the top Tam lored q-romiamel-t-le] Vmer-Ladlmm AolVMV-Ma-T-]1 hare |<) | 
survive. They'll be trying to get you from fo) aat-moleliceliare mon vm-Yor-ace)leliaremayall(emerclale [-1cel0 ys to have your wits about you to play this oner 
every angle possible-and a few impossible! objects are being thrown at you. Tretcherous a 


tornadoes are everywhere as well! 
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Air-Sea Attack Y-1660 Get a load of the PANU) Cola Ol at-l-1-0m deal MolG10 MN Mat-Mol (om (lanl-Mor-] a@ioial-t1-13 Mouse Puzzle Y-1680 A fantastic new idea 
incredible graphics! And that’s only the take on a new meaning when you're in the game. You are controlling a mouse that 1s 
start.... if you like action and nlenty of it, put driver's seat! And there are extra hazards at being chased by a cat through a pipé 
yourself in the commanders seat of this every turn. Watch it! system. Can you escape? A, Totally 
one! FeYolel hen dhVicmme F-Taatc! 
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Astro Pinball Y-1685 The be all and end all Tennis Y-1620 With real 3D figures. All the Crazy Chicken Y-1640 As a chicken you 
(o) =A -Xoa delat vom ofa) of-]] om Blolal a’ E-Ts eh d alelt-W/2 Ole fun and excitement of the Grand-Slam must lay eggs at strategic points, but wateéh 
anymore, you Can play with this one for free tournaments-with real tennis scores, rules out for the foxes! 

etc 


NOW AVAILABLE AT YOUR NEAREST 
DICK SMITH ELECTRONICS STORE 
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